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ABSTRACT 


This  thesis  describes  the  design  and  implement  of  a  prototype  compiler  for  the 
functional  programming  language  PHI.  The  design  is  highly  modularized  and  the  authors 
think  this  should  facilitate  the  understanding  of  both  concept  and  implementation.  The 
front-end  of  the  compiler  implements  machine  independent  lexical  and  syntactic  analyzers; 
top-down  parsing  techniques  are  employed.  The  back-end  implements  a  machine 
dependent  one-pass  semantic  analyzer  and  code  generator. 

Since  this  implementation  is  a  prototype,  it  does  not  possess  all  of  the  qualities 
desirable  in  a  full  implementation.  The  basic  constructs  of  PHI:  functions  and  data 
definitions  are  implemented,  as  well  as  the  integer,  natural  number,  and  boolean  types. 
However,  the  necessary  hooks  are  present  and  the  design  is  mature  enough  to  allow 
expanding  the  prototype  to  a  full  implementation. 
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I.  INTRODUCTION 


A.  BACKGROUND  —  GENERAL 

In  its  attempt  to  provide  students  with  a  well  rounded  background  to  the  field  of 
computer  science,  the  computer  science  department  at  the  Naval  Postgraduate  School  offers 
courses  covering  recent  developments  in  programming  languages.  One  of  the  courses 
deals  specifically  with  the  methodology  of  functional,  also  known  as  applicative, 
programming.  Both  the  theory  and  the  practice  of  functional  programming  are  covered, 
concentrating  more  on  the  practice  than  the  theory.  In  order  to  fully  appreciate  the  nuances 
of  functional  programming  it  would  be  desirable  to  provide  the  students  with  a  functional 
programming  environment.  This  would  provide  a  first  hand  look  at  the  fundamental  dif¬ 
ference  in  methodologies  when  programming  in  functional  languages  as  opposed  to 
programming  in  traditional  imperative  languages. 

Of  the  languages  currently  supported  in  the  department;  LISP,  on  the  UNIX1 
environment,  comes  the  closest  to  meeting  this  requirement.  Although  LISP  is  considered 
a  functional  language  by  some,  its  many  extensions  and  modifications  actually  brings  it  into 
the  world  of  imperative  programming.  It  is  not  a  pure  functional  programming  language. 

There  are  several  additional  problems  associated  with  using  LISP  to  teach  techniques 
of  functional  programming.  Modem  LISP  dialects  do  not  support  all  aspects  of  functional 
programming.  Most  notably  they  lack  the  ability  to  define  higher-order  functions. 
Dynamic  scoping  and  the  semantics  of  the  language  make  it  a  pedagogical  nightmare  to 
teach. [Ref.  l:p.  0-1]  The  goal  of  teaching  functional  programming  would  rapidly  be 
overtaken  by  the  necessity  of  explaining  the  idiosyncrasies  of  LISP.  In  an  11  week 

1UNIX  is  a  trademark  of  Bell  Laboratories. 
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quarter,  time  devoted  to  LISP  would  significantly  detract  from  instruction  of  functional 
programming. 

Recognizing  the  shortcomings  of  LISP,  a  pure  functional  language,  PHI  was 
developed  by  Dr.  B.  J.  MacLennan  for  use  in  this  course  of  instruction.  The  syntax  of 
PHI  closely  follows  that  of  standard  mathematical  notation.  This  means  students  should 
have  little  difficulty  in  learning  how  to  write  legitimate  PHI  statements.  Instruction  can 
now  concentrate  on  joining  these  statements  to  create  functional  programs.  Hopefully,  this 
will  lead  to  a  greater  understanding  and  appreciation  of  the  methodology  of  functional 
programming. 

B.  BACKGROUND  —  THESIS 

Creation  of  PHI  solved  the  problem  of  finding  a  suitable  language  to  use  to 
demonstrate  the  methodology  of  functional  programming.  However,  currently  PHI 
programs  are  programs  on  paper  only.  There  exists  no  programming  environment  for  the 
PHI  language.  So  it  is  impossible  to  machine  execute  PHI  programs.  This  thesis  attempts 
to  remedy  the  above  problem  by  providing  the  first  component  in  a  PHI  programming 
environment  —  a  prototype  PHI  compiler. 

Conventional  compiler  construction  techniques  were  chosen  for  this  implementation 
for  several  reasons.  By  choosing  conventional  techniques,  the  authors  were  able  to 
address  the  problems  associated  with  utilizing  conventional  methods  for  implementing  a 
compiler  for  a  functional  language2.  Additionally,  realizing  that  both  the  language  and 
system  would  change,  the  authors  wanted  a  well  documented  and  understood 
methodology.  The  cost  of  maintaining  a  system  can  be  as  much  as  three  times  the 
development  cost  [Ref.  2:p.  478].  Therefore,  it  was  imperative  to  choose  a  methodology 
that  supported  a  clean  and  structured  design. 

Specific  problems  and  solutions  are  covered  later  in  Chapters  Two  and  Three 
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Following  conventional  methodc.  logies,  the  authors  separated  the  PHI  compiler  design 
into  a  front-end3  and  a  back-end4.  The  overall  general  design  of  the  PHI  compiler  is 
shown  in  Figure  1.1.  The  front-end,  containing  the  scanner  (lexical  analyzer)  and  parser 
(syntactic  analyzer)  is  essentially  responsible  for  analysis  of  the  external  file  containing  the 
source  program.  The  PHI  compiler  back-end  couples  semantic  analysis  with  code 
generation  to  produce  code  suitable  for  execution  on  the  target  machine.  [Ref.  3:pp.  5-6] 
The  authors  felt  that  a  clear  and  distinct  separation  between  parts  would  aid  understanding 
of  the  system,  simplify  division  of  labor,  and  increase  ease  of  development  and 
maintenance.  It  should  also  result  in  greater  flexibility  for  follow-on  development  in  the 
PHI  programming  environment.  As  an  example,  the  current  front-end  could  be  modified 
to  support  a  PHI  interpreter. 


Figure  1.1  General  Design  of  the  PHI  Compiler 

C.  BACKGROUND  —  FUNCTIONAL  PROGRAMMING 

Functional  programming  is  a  methodology  in  favor  among  academicians.  Although 
applicative  programming  goes  further  back,  it  is  generally  agreed  that,  as  a  methodology, 
functional  programming  traces  its  roots  to  John  Backus  [Ref.  4:p.  404,  Ref.  5:p.  65],  In 
3Design  and  implementation  of  the  front-end  is  discussed  in  Chapter  Two. 

4Design  and  implementation  of  the  back-end  is  discussed  in  Chapter  Three. 
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his  acceptance  speech  for  the  1977  ACM  Turing  Award,  Backus  criticized  traditional 
programming  languages  and  programming  styles.  He  went  on  to  propose  a  new 
methodology  of  programming  that  involved  "the  use  of  a  fixed  set  of  combining  forms 
called  functional  forms."  [Ref.  6:p.  619]  This  methodology  is  known  today  as  functional 
programming. 

1.  Problems  with  Conventional  Languages 

Backus  feels  [Ref.  6:pp.  613-619]  that  the  basic  underlying  problem  with 
conventional  languages  is  the  existence  of  the  assignment  statement.  The  assignment 
statement  plays  a  central  role  in  conventional  languages  and  breaks  programming  into  two 
worlds.  Backus  calls  the  right-hand  side  of  assignment  statements,  expressions,  the  first 
of  these  worlds.  The  second  world  is  the  world  of  statements,  with  the  primary  statement, 
of  course,  being  the  assignment  statement. 

Several  problems  are  associated  with  assignment  statements.  First,  they  permit 
programs  to  be  held  hostage  through  access  to  their  variables.  Since  variables  are  used  to 
imitate  the  machine’s  storage  cells;  assignment  statements  allow,  even  encourage,  state 
changes  to  take  place.  This  access,  either  direct  or  indirect,  permits  such  problems  as  side 
effects,  unintentional  state  changes,  and  aliasing  to  arise.  It  then  becomes  difficult  to 
reason  about  the  correctness  of  these  programs,  so  proving  simple  programs  correct  is  an 
arduous  task  and  proving  complex  programs  correct  is  virtually  impossible.  Additionally, 
by  permitting  the  value  of  variables  to  be  changed,  the  assignment  statement  makes 
temporal  order  of  execution  of  statements  critical.  For  example,  the  following  two  pieces 
of  code  produce  dramatically  different  results  depending  on  which  statement  inside  the  for 
loop  is  executed  first. 

for  (i  =  0;  i  !  =  some_value;  ++i)  for  (i  =  0;  i  !=  some_value;  ++i) 

{  if(  i  %  2  ==  0)  {  DoSomething(i); 

continue;  if(  i  %  2  ==  0); 

DoSomething(i);  continue; 

}  } 
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These  problems  interact  so  that  it  becomes  extremely  difficult  to  create  new  programs  out  of 
old  ones.  [Ref.  6:pp.  613  -  619,  Ref.  l:pp.  1-2  -  1-20] 

Another  problem  associated  with  assignment  statements  is  that  each  produces  only 
a  one-word  result.  In  effect,  they  force  programmers  to  think  in  a  word-at-a-time 
manner.  For  example,  to  apply  a  function  to  an  entire  array  of  values,  the  programmer 
must  access  each  value  individually.  Not  only  is  this  wasteful  of  computer  assets,  but  it 
results  in  what  Backus  refers  to  as  the  "von  Neumann  bottleneck"  of  conventional 
programming  languages.  [Ref.  6:pp.  613-619] 

2.  Functional  Languages 

Backus  proposes  the  methodology  of  functional  programming  as  the  solution  to 
these  problems.  Functional  languages  have  removed  variables  and  the  assignment 
statement  from  their  syntax  so  that  their  basic  building  block  becomes  the  function.  It  is 
through  "the  use  of  a  fixed  set  of  combining  forms... plus  simple  definitions"  [Ref.  6:p. 
619]  that  the  programmer  is  able  to  build  new  functions  from  existing  functions.  It  thus 
becomes  possible  to  form  a  new  program  by  combining  two  or  more  existing  programs  or 
functions  together. 

The  absence  of  assignment  statements  and  variables  removes  the  problems 
plaguing  conventional  languages  caused  by  side  effects,  etc.  because  the  program  now 
operates  exclusively  in  the  world  of  expressions.  This  permits  the  programmer  to  maintain 
a  clear  conceptual  view  of  the  program.  It  is  easier  to  understand  and  reason  about  the  task 
the  program  is  to  perform  [Ref.  5:pp.  65  -  69].  It  now  becomes  not  only  possible,  but 
practical  to  prove  programs  correct  [Ref.6:pp.  624  -  625]. 

Another  direct  benefit  stemming  from  the  absence  of  side  effects  is  order.  The 
values  of  expressions  are  no  longer  dependent  on  the  order  in  which  they  are  evaluated. 
Therefore,  functional  languages  provide  a  natural  means  of  performing  parallel 
computations  [Ref.  7:p.  35].  Functional  languages  and  the  associated  methodology  of 
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functional  programming  may  very  well  provide  the  key  to  programming  the  massively 
parallel  computers  entering  service  nowadays.  All  of  the  above  benefits  have  applicability 
to  ongoing  research  in  the  SDI  program. 

The  authors  feel  that  function?!  programming  can  best  be  summarized  by  the 
following  thought  —  assignment  statements  are  to  functional  programming  what  GOTO 
statements  are  to  structured  programming. 

D.  ASSUMPTIONS 

An  IBM5  personal  computer/IBM  compatible  personal  computer  was  chosen  as  the 
target  machine  for  this  implementation.  The  authors  felt  that  the  nature  of  the  language  and 
its  intended  use  were  better  suited  for  the  PC/personal  work  station  environment  as 
opposed  to  a  mini-  or  main-frame  time  shared  environment.  The  PC  environment  should 
provide  greater  flexibility  and  freedom  when  implementing  follow-on  tools  for  the  PHI 
programming  language.  Also,  future  compiler  improvements  will  not  have  to  be  concerned 
with  extraneous  interfaces  to  another  system.  Working  with  a  PC  environment  eliminates 
the  need  to  take  into  account  the  effects  the  PHI  environment  will  have  on  another  user  of 
the  system.  The  implementor  is  able  to  work  with  a  system  that  remains  constant  —  a 
known  quantity. 

The  assumed  target  machine  configuration  is  based  on  the  equipment  available  in  the 
Naval  Postgraduate  School’s  computer  science  microcomputer  lab.  Each  machine  is 
configured  with  640K  bytes  of  RAM,  one  (most  have  two)  20M  byte  hard  disk  drive,  one 
1 .2M  byte  5  inch  floppy  disk  drive,  and  the  8087  math  co-processor,  each  currently 
operates  under  the  MS-DOS6  3.x  operating  system.  These  machines  are  readily  available 
to  all  computer  science  students  at  the  Naval  Postgraduate  School,  and  many  students  own 

5IBM  is  a  registered  trademark  of  Internal  Business  Machines  Corporation. 

6MS-DOS  is  a  registered  trademark  of  Microsoft  Corporation. 
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personal  computers  with  similar  configurations.  It  is  not  necessary  to  utilize  a  hard  disk 
when  executing  the  PHI  compiler. 

E.  CONSTRAINTS 

As  is  the  case  with  most  implementation  theses,  time  was  probably  the  biggest 
constraint  facing  the  authors.  This  involved  making  certain  trade-offs;  e.g.  should  the 
major  effort  be  directed  towards  a  full  implementation  of  PHI  while  concentrating  on  a 
particular  component  of  the  compiler,  or  should  the  major  effort  be  directed  towards  a  full 
implementation  of  the  compiler  while  concentrating  on  a  subset  of  the  PHI  language?  The 
authors  felt  that  the  greatest  benefit  could  be  gained  by  implementing  a  complete  compiler. 
Having  to  actually  face  the  issues  and  problems  associated  with  designing,  implementing, 
and  interfacing  a  full  compiler  implementation  would  be  much  different  than  just  reading 
about  them  in  a  text  As  a  result,  this  thesis  implements  only  a  subset7  of  PHI. 

Since  PHI  is  an  experimental  language  it  is  still  undergoing  changes  and  revisions. 
Trying  to  modify  and  update  the  compiler  design  with  each  version  proved  to  be  an 
impossibility.  The  authors  were  forced  to  freeze  the  design  based  on  the  language  as  it 
stood  on  07  January  1987.  Any  follow-on  work  will  need  to  update  the  front-end  and 
back-end  of  the  compiler  to  meet  the  requirements  of  these  new  versions  of  PHI.  A 
description  of  the  grammar  as  implemented  and  a  description  of  the  latest  version  of  the 
grammar  may  be  found  in  the  Appendixes. 


7This  subset  is  discussed  in  the  individual  chapters  on  the  front-end  and  back-end. 


n.  FRONT-END  OF  THE  COMPILER 


The  authors  separated  the  design  of  the  PHI  compiler  into  two  modules,  a  front-end 
and  a  back-end.  These  modules  were  then  further  subdivided  to  produce  the  general  layout 
of  Figure  1.1.  The  authors  believe  this  modularization  simplifies  the  design  and  will  aid  in 
understanding  the  system,  thus  decreasing  future  maintenance  problems. 

The  front-end  of  the  PHI  compiler  is  comprised  of  the  scanner  (lexical  analyzer),  the 
parser  (syntactic  analyzer),  and  their  associated  error  recovery  routines.  Two  possible 
interactions  between  the  lexical  and  syntactic  analyzers  were  considered.  The  first 
incorporates  the  scanner  into  the  parser,  and  tokens  are  produced  by  the  scanner  only  upon 
request  of  the  syntactic  analyzer.  Thus,  this  system  acts  like  a  pipeline.  An  alternate 
method  is  to  allow  the  scanner  to  tokenize  the  entire  source  program,  store  the  tokens  in 
some  data  structure,  and  pass  this  structure  to  the  parser.  [Ref.  3:p.  10J 

For  the  prototype  implementation  of  a  PHI  compiler,  the  authors  based  the  design  on 
the  first  interaction.  Although  the  second  method  is  conceptually  very  easy  to  understand, 
the  authors  think  the  current  implementation  is  clean  and  will  readily  lend  itself  to  future 
enhancements.  Any  input  alphabet  peculiarities  are  restricted  to  the  lexical  analyzer,  and 
this  independence  should  provide  benefits  for  the  next  student! s)  who  work  on  the  PHI 
programming  environment. 

A.  LEXICAL  ANALYSIS  —  THE  SCANNER 

The  PHI  compiler  reads  a  source  file  of  ASCII  text  which  is  fed  to  the  scanner  for 
lexical  analysis.  The  principle  task  of  lexical  analysis  is  to  separate  or  divide  the  source 
program  into  tokens  for  use  during  syntactic  analysis  [Ref.H.p.  84,  Ref  9:p.  155)  This 
is  accomplished  in  the  PHI  compiler  through  a  character -by -character  examination  of  the 
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user’s  source  file.  These  characters  are  assembled/grouped  into  the  individual  tokens 
which  represent  terminal  symbols  of  the  PHI  grammar.  Examples  of  some  of  the  terminal 
symbols  are  operators,  identifiers,  keywords,  and  constants.  A  complete  listing  of  the  PHI 
tokens  may  be  found  in  the  header  file  for  the  scanner  in  Appendix  E. 

The  primary  advantage  to  tokenizing  the  source  program  is  that  the  design  of  the 
syntactic  analyzer  needs  to  take  into  account  only  one  type  of  data  unit  —  the  token  [Ref. 
3:p.  7].  This  simplifies  the  design  of  the  parser  because  provisions  do  not  have  to  be 
made  for  handling  white  space  and  comments.  The  scanner  has  already  removed  them. 
Also,  removing  white  space  and  comments  and  utilizing  a  fixed-length  representation  for 
the  tokens  saves  space.  Once  tokenization  is  complete,  the  source  program  can  be 
discarded  and  the  compacted  tokenized  file  can  be  utilized  for  further  analysis. 

In  order  to  correctly  tokenize  the  source  file  there  must  be  some  discrete  means 
available  to  accurately  represent  each  token.  There  are  several  ways  of  describing  tok  .  ns. 
One  means  available  is  to  use  a  regular  grammar.  In  this  method  "generative  rules  are 
given  for  producing  the  desired  tokens"  [Ref.  3:p.  142].  An  equivalent,  but  different, 
method  is  to  use  finite-state  acceptors,  FSAs,  to  recognize  tokens.  The  authors  found  it 
easier  to  visualize  this  as  a  recognitive  vice  generative  problem.  For  this  reason  the  various 
tokens  were  modeled  using  FSAs.  An  example  of  an  unsigned  number  recognizer  is 
shown  in  Figure  2.1.  The  interested  reader  is  directed  to  Tremblay  and  Sorenson  [Ref. 
3:Chapter  4]  for  an  excellent  introduction  to  the  practice  of  using  FSAs  to  model  tokens. 
The  authors  found  that  utilizing  FSAs  greatly  simplified  the  design,  coding,  and  debugging 
of  the  lexical  analyzer  —  one  picture  was  worth  a  hundred  lines  of  code. 

The  ideal  grammar  would  allow  each  token  to  be  uniquely  and  unambiguously 
identified.  Once  the  lexical  analyzer  started  on  the  path  of  building  a  token,  it  would  be 
able  to  continue  until  the  end  with  no  backtracking.  Due  to  limitations  with  the  standard 
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Figure  2.1  Unsigned  Number  Recognizer 


ASCII  character  set,  the  designer  of  PHI  used  multiple  keystrokes,  or  characters,  to 
represent  various  operators  in  the  language8.  This  resulted  in  compound  token  types. 
Also,  as  in  other  programming  languages,  PHI  overloads  certain  operators,  allowing  them 
to  do  double  duty9  by  taking  on  different  context-dependent  meanings. 

The  problem  of  dealing  with  compound  token  types  was  easily  handled  through  the 
use  of  a  single  lookahead  character.  For  example,  upon  finding  the  character  the 
scanner  looks  ahead  to  the  next  character  to  see  if  it  is  ">"  ( -»)  or  another  (--).  If  the 
next  character  is  neither  of  these  two,  it  indicates  that  the  token  is  just  the  simple  token 
Distinguishing  overloaded  operators  was  solved  by  essentially  ignoring  it  in  the  scanner! 
The  authors  took  the  position  this  is  basically  a  syntax  analyzer  problem  and  there  was  no 
reason  to  complicate  the  scanner  by  handling  it.  The  scanner  just  identifies  a  generic  token 
type,  e.g.  SUB_,  and  lets  the  parser  make  the  proper  determination  of  its  true  meaning,e.g. 
SUB_  or  NEG_. 

There  are  several  design  decisions  relating  to  the  lexical  analyzer  worth  noting.  The 
authors,  following  the  example  of  Pascal,  C,  and  other  languages,  took  the  position  that 


8Some  examples  of  this  are  ->  for  —  for  ■  and  <>  for  *. 

^or  example,  +  and  -  can  serve  as  either  an  unary  or  binary  arithmetic  operator. 
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PHI's  keywords10  are  reserved  words  and  may  not  be  redefined  and  used  as  identifiers. 
Alternate  decisions  would  have  been  to  distinguish  keywords  from  identifiers  based  on 
context,  as  PL/I  does,  or  to  precede  them  by  some  special  character,  as  ALGOL  60  and 
ALGOL  68  do  [Ref.  3:p.  91].  PHI  has  a  very  small  set  of  keywords,  smaller  than  C's, 
and  the  authors  think  that  this  decision  makes  life  easier  for  the  programmer  by  simplifying 
debugging  of  programs.  It  certainly  made  life  easier  for  the  authors. 

PHI's  grammar  makes  no  provisions  for  programmer  comments.  The  authors 
originally  implemented  comments  by  requiring  the  programmer  to  explicitly  indicate  the 
beginning  and  end  of  each  comment  with  a  special  character.  After  scanning  the  special 
character  at  the  beginning  of  the  comment,  the  lexical  analyzer  would  ignore  all  following 
characters  until  the  special  character  was  once  again  found.  Following  conversations  with 
PHI's  designer  this  implementation  was  changed.  Comments  are  now  implemented  the 
same  way  they  are  in  Ada11:  the  comment  terminator  is  the  end-of-line  character.  Not 
only  did  this  simplify  the  recognizer  for  comments,  but  it  also  completely  removed  the 
problem  of  runaway  comments. 

A  name  table  is  used  to  point  to  the  names  of  all  identifiers  and  constants.  A  symbol 
table  was  originally  utilized  but  later  discarded  when  the  authors  realized  the  syntax  of  PHI 
makes  analyzing  an  abstract  syntax  tree  easier  than  analyzing  a  flattened  tree.  The 
information  normally  associated  with  a  symbol  table  is  now  held  in  the  nodes  of  the  tree. 
This  permits  just  the  first  instance  of  each  name  to  be  placed  into  the  name  table.  In  other 
words,  regardless  of  how  many  times  and  in  how  many  scopes  the  identifier  X  is  used,  X 
appears  only  once  in  the  name  table.  The  token  returned  to  the  parser  would  indicate  a 


10A  complete  listing  of  PHI  keywords  may  be  found  in  the  header  file  for  the  scanner  in  Appendix  E. 

1 1  Ada  is  a  trademark  of  the  Ada  Joint  Programming  Office,  Department  of  Defense,  United  States 
Government. 
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token  type  of  identifier  and  the  parser  would  then  know  to  dereference  the  pointer  to  find 
the  string  containing  the  actual  name,  X. 

Because  keywords  are  reserved,  each  potential  identifier  must  first  be  compared 
against  the  possible  keywords  prior  to  being  placed  in  the  name  table.  The  authors 
implemented  a  keyword  table  to  simplify  this  process.  Knuth  [Ref.  I0:pp.  406-410]  has 
shown  that  a  binary  search  is  the  most  efficient  way  of  searching  an  ordered  table,  using 
only  comparisons.  For  this  reason  the  keyword  table  is  kept  in  alphabetical  order.  The 
lookup,  which  is  at  worst  0(log  n),  is  performed  using  a  binary  search  of  the  keyword 
table. 

In  an  attempt  to  improve  the  efficiency  of  the  name  table,  the  authors  implemented  it  as 
a  hash  table.  McKeeman  [Ref.  1  l:pp.  253-301]  experimented  with  six  different  length 
dependent  hash  functions.  He  found  that  the  function  producing  the  best  results  involved 
summing  the  internal  representation  of  the  first  and  last  characters  of  the  variable's  name 
with  its  length  shifted  four  places  to  the  left.  This  was  the  function  utilized  by  the  authors. 
The  possibility  of  collisions  is  reduced  by  choosing  a  prime  number  as  the  table  size. 
However,  since  this  only  reduces,  not  eliminates,  the  possibility  of  two  or  more  names 
hashing  to  the  same  value;  the  authors  had  to  make  provisions  for  handling  collisions. 

A  variant  of  the  chaining  method  of  collision-resolution  was  chosen.  In  PHI's 
implementation,  each  of  the  name  table  slots/buckets  holds  a  data  structure  that  can  contain 
both  the  name  of  the  variable  and  a  pointer  to  another  structure  of  the  same  type.  So  each 
hashed  value  points  to  a  linked  list  of  names.  This  method  offers  the  advantage  of 
providing  better  performance  than  linear  probing  [Ref.  12:p.  89],  is  conceptually  easy  to 
visualize/work  with,  and  also  solves  the  problem  of  possibly  overflowing  the  hash  table.  It 
does  require  slightly  more  memory  to  implement,  but  the  authors  determined  that  the 
benefits  of  this  method  far  outweighed  the  slight  increase  in  storage  requirements.  |Ref. 
12:pp.  83-93] 
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B.  SYNTACTIC  ANALYSIS  —  THE  PARSER 


The  purpose  of  the  parser  is  twofold:  1)  to  determine  if  the  program,  as  represented 
by  the  output  from  the  scanner,  is  syntactically  correct;  2)  to  impose  a  hierarchical  structure 
on  the  token  stream,  fitting  it  into  the  abstract  syntax  tree  which  is  the  output  of  the  parser 
[Ref.  8:pp.  7-8,  Ref.  9:p.  7].  Traditionally,  these  tasks  are  done  by  either  a  top-down  or 
bottom-up  methodology  [Ref.  8:p.  41],  Both  methodologies  use  the  tokens  generated 
through  lexical  analysis. 

The  terminology  top-down  refers  to  the  order  in  which  the  nodes  of  the  parse  tree  are 
constructed.  Top-down  parsing  starts  from  the  root  of  the  tree  and  proceeds  downward 
towards  the  terminal  symbols  at  the  leaves.  The  parse  tree  is  constructed  from  the  top  to 
the  bottom  by  applying  productions  of  the  grammar  to  generate  strings  of  terminals  and 
nonterminals.  On  the  other  hand,  bottom-up  methodologies  start  from  the  terminal 
symbols  at  the  leaves  and  proceed  upwards  to  the  root.  The  parse  tree  is  constructed  from 
the  bottom  to  the  top  by  applying  reductions  of  the  grammar  to  generate  single  nonterminals 
from  strings  of  terminals  and  nonterminals.  [Ref.  8:pp.  40-41,  Ref.  9:pp.  134-136] 

It  is  generally  agreed  that  the  popularity  of  top-down  parsing  techniques  is  "due  to  the 
fact  that  efficient  parsers  can  be  constructed  more  easily  by  hand".  [Ref.  8:p.  41  ]  The 
authors  can  attest  to  the  fact  that  the  concept  of  top-down  parsing  is  very  easy  to  grasp. 
When  parsing  PHI,  it  is  natural  to  begin  with  the  start  symbol  of  the  grammar, 
BLOCKBODY,  and  work  forward  from  there  to  analyze  the  token  stream.  So,  partially 
because  of  its  efficiency,  but  primarily  because  of  its  ease  of  understanding  and  use,  the 
authors  chose  the  top-down  methodology  of  recursive-descent  parsing  to  design  and 
implement  the  syntactic  analyzer. 

In  recursive-descent  parsers,  separate  procedures/functions  are  written  to  recognize 
each  nonterminal  of  the  grammar  [Ref.  3:pp.  219-220],  This  technique  gets  its  distinctive 
name  "because  nonterminals  can  appear  in  the  right-hand  sides  of  each  other's 
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productions,  the  procedures  for  recognizing  nonterminals  are  recursive."  [Ref.9:p.  150] 
To  state  it  more  clearly,  the  function  to  recognize  nonterminal  'A'  could  end  up  calling  itself 
recursively  if  either  1)  'A'  appears  on  the  right-hand  side  of  the  production  describing  'A' 
itself,  or  2)  'A'  appears  on  the  right-hand  side  of  the  production  describing  another 
nonterminal  'B'  and  'B'  appears  on  the  right-hand  side  of  the  production  describing  'A'. 
Regardless  of  how  one  looks  at  the  nature  of  the  technique,  one  usually  identifies  a  stack 
with  recursion.  What  made  this  technique  so  easy  to  implement  was  that  the  authors  were 
able  to  use  C's  underlaying  mechanism  for  handling  recursive  functions.  The  authors  did 
not  have  to  explicitly  maintain  a  stack  of  symbols  for  each  function  call;  instead,  the 
information  was  implicit  in  the  stack  of  activation  records  resulting  from  each  function  call. 

Top-down  parsing  techniques,  especially  recursive  descent,  offer  straightforward 
means  of  implementing  a  syntactic  analyzer.  However,  these  techniques  are  applicable 
only  to  a  subset  of  the  context-free  grammars  and  it  is  essential  that  all  left  recursion  be 
eliminated  from  the  grammar  [Ref.  3:p.  211].  In  other  words,  there  must  not  exist  any 
productions  describing  nonterminal  'A'  with  'A'  appearing  as  the  first  clement  on  the 
right-hand  side  of  the  production.  Obviously,  if  this  situation  existed,  it  would  be  possible 
to  present  the  parser  with  strings  to  parse  that  would  cause  it  to  enter  "an  infinite  loop  of 
production  applications"  [Ref.  3:p.  211],  never  to  be  heard  from  again.  The  PHI 
production  QUALEXP  =  QUALEXP  WHERE  AUXDEFS  is  an  example  of  this  type  of  string. 
The  parser  would  hang  up  looking  for  QUALEXP  and  would  never  leave  this  loop  until  the 
machine  ran  out  of  memory  stacking  activation  records.  In  order  to  employ  top-down 
parsing  techniques  with  PHI  the  authors  rewrote  the  PHI  grammar  to  be  right-recursive12. 
However,  as  shown  below,  even  the  new  grammar  does  not  lend  itself  to  "pure"  recursive 
descent  parsing  techniques. 


12The  right  recursive  syntax  of  PHI  may  be  found  in  Appendix  D 
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From  the  compiler  writer's  point  of  vie  w  the  ideal  grammar  would  allow  the  correct 
production  rule  to  be  applied  in  every  step  of  the  parsing  process.  Constructing  the  parse 
tree  would  then  proceed  in  a  completely  deterministic  manner.  When  this  is  not  possible, 
there  are  two  basic  parser  design  methods  for  dealing  with  nondeterminism  in  the  grammar 
[Ref.  9:pp.  151-152].  In  the  backtracking  method,  which  is  generally  not  applicable  to 
recursive-descent  techniques,  the  parser  picks  an  arbitrary  production  and  continues  with 
the  parse  [Ref.  9:p.  151].  If  the  parse  is  successful  it  is  assumed  that  the  correct 
production  was  chosen.  However,  if  an  error  is  later  discovered,  the  parser  backtracks  to 
the  last  choice,  a  new  production  is  chosen,  and  the  parser  presses  forward  again.  This 
process  continues  until  either  the  parse  is  successful  or  the  parser  runs  out  of  possible 
productions  to  chose  from.  The  second  method  requires  a  modification  to  the  grammar 
which  results  in  a  deterministic  parser  the  grammar  is  rewritten  using  a  process  called  left 
factoring  to  avoid  choices  among  nonterminals  [Ref.  9:p.  151]. 

For  the  most  part,  the  design  of  PHI  is  conducive  to  recursive  descent  parsing 
techniques.  There  are,  however,  several  productions  where  this  is  not  so.  The  result  was 
that  a  degree  of  nondeterminism  arose  in  the  parser  design.  The  authors  attempted  to  solve 
this  problem  through  a  combination  of  left  factoring  and  the  employment  of  a  simple  single 
token  look-ahead.  This  solution  worked  for  all  but  the  two  productions  described  below. 
In  one  case  a  two  token  look-ahead  was  employed  and  backtracking  was  used  tn  the  other. 
This  is  not  to  say  that  the  authors  are  absolutely  certain  that  PHI  is  not  an  LL(1 )  grammar 
or  that  backtracking  had  to  be  used.  These  solutions  were  used  because  they  solved  the 
problem  at  hand. 

A  two  token  look-ahead  was  used  for  the  production13  ARGBINDING  =  [  QUALEXP  OP 
].  When  the  token  ’[’  is  found,  a  flag  is  set  to  indicate  that  an  ARGBINDING  is  being 
parsed.  The  first  look-ahead  token  is  utilized  when  parsing  the  QUALEXP  part.  QUALEXP, 

13  A  complete  description  of  the  PHI  grammar  may  be  found  in  the  Appendices 
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for  example,  may  parse  as  TERM,  which  in  turn  may  parse  as  either  FACTOR  or 
FACTOR *TERM.  After  succeeding  on  FACTOR,  a  look-ahead  is  employed  to  look  for  the 
MULOP,  *,  to  see  if  a  recursive  search  for  another  TERM  should  be  initiated.  This 
methodology  works  as  long  as  QUALEXP  was  not  called  from  ARGBINDING.  If  it  was 
called  from  ARGBINDING,  argbinding  flag  set,  the  operator  *  could  be  the  trailing  operator 
in  the  ARGBINDING  production  and  not  part  of  the  TERM  production.  In  order  to  make  this 
determination,  an  additional  look-ahead  is  utilized  to  look  for  the  token  If ']’  is  found 
the  QUALEXP  production  is  terminated,  e.g.,  term  does  not  recursively  call  itself  again,  and 
the  argbinding  production  is  allowed  to  proceed  to  completion. 

Backtracking  was  utilized  when  parsing  productions  of  ACTUAL:  ACTUAL  = 
COMPOUND  and  ACTUAL  =  DENOTATION  =  FORMALS  l->  ACTUAL.  Legitimate  PHI 
sentential  forms  produced  by  the  production  FORMALS  =  (  FORMALS+)  are  proper  subsets 
of  the  sentential  forms  produced  by  the  production  COMPOUND  =  (  ELEMENTS  ),  excluding 
the  empty  compound  statement.  Since  any  number  of  identifiers  may  appear  between  the 
parentheses,  it  is  not  practical  during  the  parse  to  utilize  look-ahead  to  determine  the 
presence  of  the  token  "|*>".  In  effect,  the  parser  first  realizes  it  was  parsing  a 
DENOTATION  when  it  finds  This  problem  was  solved  by  designing  the  parser  to 

apply  first  the  compound  production  when  presented  with  this  choice.  If  is  later 
found,  the  parser  then  backtracks14  to  the  FORMALS  production.  The  normal  costs 
associated  with  backtracking  were  not  evident  in  this  isolated  case.  As  described  below, 
space  trade-offs  had  previously  been  made  and  the  parser  was  already  working  with  an 
abstract  syntax  tree.  The  root  to  the  subtree  containing  the  previously  parsed  compound 
was  simply  passed  to  the  FORMALS  production  to  insure  that  the  string  could  have  been 


14A  purist  would  say  that  this  instance  of  backtracking  means  that  the  PHI  compiler  does  not  in  fact 
employ  a  recursive-descent  parser. 
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produced  by  FORMALS.  After  ascertaining  FORMALS,  the  parser  now  continues  the  parse 
using  the  DENOTATION  production. 

The  production  QUALEXP  =  QUALEXP  WHERE  AUXDEFS  required  a  deviation  from 
pure  recursive  descent  parsing.  The  semantics  of  this  production  are  such  that  a  terminal 
(e.g.,  an  identifier)  may  be  used  prior  to  its  definition.  In  itself,  this  does  not  present  a 
major  problem  for  the  compiler  writer.  However,  this  construct  also  changes  the  scope  of 
the  identifier  since  the  inner-most  scope,  in  the  form  of  the  QUALEXP,  is  parsed  first  and 
the  parser  then  works  its  way  to  the  outer-most  scopes,  the  AUXDEFS.  This  problem  is 
analogous  to  that  of  mutual  recursion  in  Pascal,  without  the  benefit  of  the  forward 
declaration  [Ref.  4:p.  213]. 

Originally,  the  parser  was  designed  to  output  the  parse  tree  in  flattened  form, 
essentially  a  post-order  walk  of  the  tree.  This  design  implemented  traditional  symbol-table 
management  routines.  However,  after  obtaining  a  clearer  understanding  of  the  semantics 
involved  with  the  problems  mentioned  earlier,  notably  the  production  QUALEXP  = 
QUALEXP  WHERE  AUXDEFS,  the  authors  realized  a  traditional  symbol-table  would  be  too 
inefficient.  Management  of  the  table  would  take  an  inordinate  amount  of  assets  and  be  too 
unwieldy  to  work  with.  The  authors  solved  this  problem  by  maintaining  the  status  of  the 
parse  in  an  abstract  syntax  tree  so  the  output  from  the  parser  is  now  in  tree  form.  This 
permits  information  originally  held  in  the  symbol-table  to  be  maintained  in  the  tree  itself. 
The  parser  is  able  to  analyze  the  source  program  by  walking  the  tree  and  decorating  the 
nodes  with  required  information.  Maintaining  a  binary  tree  in  memory  does  require  more 
space,  but  this  is  insignificant  when  compared  with  the  benefits. 

Interestingly,  maintaining  the  parse  in  tree  form  presented  several  additional  benefits. 
The  solution  to  the  aforementioned  problem  of  distinguishing  between  COMPOUND  and 
DENOTATION  became  trivial  because  it  was  now  simply  a  matter  of  returning  to  the 
appropriate  subroot  and  rewalking  the  tree.  Also,  working  with  a  binary  tree  permitted  the 


authors  to  perform  a  modicum  of  optimization  in  the  parser.  It  becomes  relatively 
straightforward  to  perform  compaction  on  an  actual  tree. 

The  authors  think  that  this  design  offers  maximum  potential  for  future  enhancements 
of  the  PHI  programming  environment.  One  possibility  would  be  to  use  this  front-end  to 
drive  a  PHI  interpreter.  Modularization  of  the  front-end  in  this  manner  simplifies 
functional  understanding  of  the  front-end  and  should  lead  to  increased  ease  of  maintenance 
and  portability.  To  demonstrate  portability,  the  authors  recompiled  the  front-end  and 
executed  it  on  a  68000  based  processor.  This  was  accomplished  with  no  modifications  to 
the  source  program,  just  replacement  of  C  run-time  header  files  for  the  new  target  machine. 


C.  ERROR  HANDLING 

Tremblay  and  Sorenson  [Ref.  3:p.  183]  classify  error  responses  into  three  categories: 

I.  Unacceptable  responses 

1 .  Incorrect  responses  (error  not  reported) 

a.  Compiler  crashes 

b.  Compiler  loops  indefinitely 

c.  Compiler  continues,  producing  incorrect  object  program 

2 .  Correct  (but  nearly  useless) 

a.  Compiler  reports  first  error  and  then  halts 

II.  Acceptable  responses 

1 .  Possible  responses 

a.  Compiler  reports  error  and  recovers ,  continuing  to  find  later  errors  if  they  exist 

b.  Compiler  reports  the  error  and  repairs  it,  conunuing  the  translation  and  producing  a 
valid  object  program 

2.  Impossible  with  current  techniques 

a.  Compiler  corrects  error  and  produces  an  object  program  which  is  the  translation  of 
what  the  programmer  intended  to  write 

In  the  prototype  PHI  compiler,  the  authors  have  implemented  a  limited  form  of  error 
recovery.  The  primary  benefit  of  error  recovery  is  to  "prolong  the  compilation  life  of  the 
program  as  long  as  possible  before  the  compiler  gives  up  on  the  source  program".  (Ref. 
3:p.  11]  This  allows  the  maximum  number  errors  to  be  discovered  per  compilation, 
shortening  the  edit,  compile,  debug  cycle  inherent  to  writing  computer  programs. 

The  authors  analyzed  the  intended  environment  and  use  of  the  PHI  compiler  and 
decided  that  lexical  analysis  and  syntactic  analysis  were  the  most  likely  source  of  errors. 


Lexical  errors  basically  involve  invalid  characters  or  incorrect  tokens.  Common  examples 
of  these  types  of  errors  are  unrecognized  words,  misspelled  identifiers/keywords,  or  illegal 
characters.  Syntactic  errors  relate  to  incorrect  structure  of  the  program.  These  errors  arise 
when  the  programmer  failed  to  follow  the  rules,  productions,  of  the  grammar.  The  form  of 
the  program  is  wrong.  (Ref.  9:p.  226,  Ref.  3:p.  185] 

One  thing  the  error  handler  should  not  do  is  exacerbate  the  situation  by  reporting 
bogus  errors  or  executing  an  erroneous  program.  To  insure  erroneous  programs  are  not 
executed,  the  authors  inhibited  object  file  production  if  any  errors  were  discovered.  The 
authors  do  not  believe  the  compiler  should  allow  code  generation  to  continue,  or  even 
begin,  if  the  source  program  has  errors.  Often  times  one  error  leads  to  an  avalanche  of 
errors  being  reported  and  this  is  extremely  annoying  to  the  programmer.  The  authors 
attempted  to  minimize  this  situation,  but  found  it  impossible  to  eliminate  completely 
because  some  errors  feed  on  others.  To  insure  the  programmer  would  not  become 
overwhelmed  with  error  messages,  the  authors  terminate  the  compilation  after  10  errors. 
Also,  for  programmer  convenience,  actual  error  messages  are  outputted  instead  of  error 
codes.  The  authors  saw  no  justification  in  using  a  cryptic  code  when  a  plain  language 
message  served  much  better.  Since  the  authors  anticipate  students  in  functional 
programming  classes  to  be  primary  users  of  the  PHI  compiler,  error  messages  have  their 
basis  in  the  productions  describing  the  PHI  language.  It  is  assumed  that  users  of  the  PHI 
compiler  have  an  understanding  of  PHI's  syntax. 


III.  BACK-END  OF  THE  COMPILER 


A.  OVERVIEW 

The  back-end  of  the  compiler  consists  of  the  semantic  checker  and  code  generator. 
Semantic  checking  and  code  generation  are  completed  in  one  pass,  and  the  output  is  a 
sequence  of  bytes,  held  in  memory,  which  correspond  to  ASCII  characters.  These 
characters  are  then  written  to  a  text  file,  which  the  assembler  uses  to  output  an  object  file. 
This  output  is  linked  to  the  appropriate  run-time  routines  to  make  a  usable  program.  For 
the  current  implementation,  a  RASM86  assembler  and  LINK8615  linker  are  used. 

B.  RUN  TIME  ORGANIZATION 

Since  PHI  is  a  structured  language  with  scoping  and  function  calls,  it  lends  itself  to  a 
stack-oriented  mn-time  architecture.  The  stack  is  set  up  to  accomplish  two  tasks:  1)  to 
hold  pointers  to  the  current  operands,  and  2)  to  hold  activation  records  for  functions 
currently  in  use.  Both  of  these  tasks  are  described  below. 

There  is  a  64  kilobytes  limit  on  memory  used  while  a  program  is  running.  This 
limitation  is  imposed  because  the  memory  is  addressed  as  an  offset  from  a  base  address, 
and  the  maximum  offset  is  64K.  This  space  is  competed  for  by  the  stack,  current 
variables,  and  constants  (see  Figure  3.1).  The  stack  grows  from  the  top  of  this  space 
down,  and  the  variable  space  grows  from  the  base  of  this  space  up,  preventing  wastage  by 
either  component.  Because  PHI  is  a  functional  language,  a  value  is  returned  from  each 
operation,  and  a  pointer  to  this  value  is  placed  at  the  top  of  the  stack.  The  returned  value  is 
placed  in  the  lowest  available  space  in  the  pan  of  memory  assigned  to  variables  and 
constants.  A  heap  allocation  method  is  not  currently  used  because  1)  all  data  types 
currently  implemented  use  only  one  word  of  memory,  and  2)  there  is  no  fragmentation  of 
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memory  because  all  types  are  currently  static.  If  the  next  operation  is  a  binary  operation,  a 
pointer  to  the  second  operand  is  placed  on  the  stack,  and  the  operation  takes  place  using  the 
two  topmost  pointers.  The  result  is  placed  in  memory,  and  the  process  begins  afresh  with 
new  operands.  If  the  next  operation  is  unary  (such  as  the  negation  operation),  no  change 
to  the  stack  takes  place  and  the  variable  in  memory  is  altered  as  the  program  directs. 


Figure  3. 1 

Memory  Organization 


If  the  second  operand  of  an  operation  is  to  be  the  result  of  a  function  call  (e.g.,  ”2  * 
f(x)"),  an  activation  record  is  placed  on  top  of  the  pointer  to  the  first  operand  and  the 
function’s  value  is  calculated.  Then,  the  activation  record  is  deleted  and  a  pointer  to  the 
function  result  is  saved  and  placed  at  the  top  of  the  stack. 


Static  Link 
Static  Nesting  Level 
Pointer  to  Value  Space 

Figure  3.2 
Acovanon  Record 

The  activation  record  itself.  Figure  3.2.  contains  three  pans:  the  static  link,  the  static 
nesting  level,  and  a  pointer  to  the  address  in  memory  where  the  function  s  first  vanable  is 
stored.  The  static  link  is  a  one-word  pointer  which  points  to  the  static  nesting  level  space 
of  the  previous  activation  record,  and  is  used  to  traverse  the  stack  from  activation  record  to 
activation  record,  i.e.  a  static  chain.  (Ref  4:p  77]  The  static  nesting  level  and  the  pointer 
to  the  base  of  the  storage  space  for  a  scope's  values  are  used  to  access  variables  and 
constants.  In  this  design,  a  two-tuple  (B,  L)  is  associated  with  each  vanable  In  this  two- 
tuple,  B  represents  the  static  nesting  level  and  L  is  the  offset  within  that  level  Bv 
following  the  static  chain  for  (current  nesting  level  target  nesting  level  i  links  the 
activation  record  of  the  scope  of  the  target  value  can  be  accessed  Then,  the  address  of  the 
variable  is  calculated  by  adding  L  to  the  low  address  of  the  scope  s  variables  An  alternate 
method  would  have  been  to  store  the  values  directly  in  the  stack  between  or  within 
activation  records.  However,  this  is  a  messy  process  when  dealing  with  dynamic  data 
structures  such  as  sequences.  Additionally,  it  is  conceptually  easier  to  divide  the  stack  and 
the  variables. 

Functions  are  implemented  as  calls  to  assembly  language  subroutines  with  pointers 
the  arguments  placed  on  the  stack  before  calling  the  routine  Using  this  sc  heme  and  noting 
the  fact  that  PHI  cannot  have  side  effects,  the  implementation  ot  recursion  is 
straightforward  Whenever  a  function  is  called,  its  activation  record  is  placed  on  the  stack 
and  pointers  to  its  arguments  art  placed  on  top  of  the  activation  record  If  the  function  is 
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recursive,  the  assembly  language  subroutine  simply  calls  itself  until  the  base  of  its 
recursion  is  reached  or  until  stack  overflow  is  reached.  Figure  3.3  shows  an  example  of  a 
series  of  activation  records  called  by  a  program  with  a  recursive  function.  Note  that  the 
data  definition  ("answer")  has  no  arguments  and  simply  calls  the  factorial  function.  The 
factorial  function,  on  the  other  hand,  has  an  argument  and  it  uses  that  argument  as  an 
operand.  So,  a  pointer  to  that  value  is  put  on  the  stack  and  the  next  operand,  fac  (n  -  1 ),  is 
put  on  the  stack  as  an  activation  record.  When  fac  (n  -  1 )  is  evaluated,  a  pointer  to  its 
return  value  is  placed  on  the  stack.  This  cycle  of  evaluation,  pop  activation  record, 
evaluation  will  continue  until  the  data  definition  "answer"  is  evaluated. 


64000 

0 

0 


Ptr  to  Actual 
Ptr  to  5 

63997 

2 

3 

Ptr  to  Actual 
Ptr  to  4 


} 
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Answer 

Activation  Record 
(no  actuals) 

Fac  (5) 

"Activation  Record 


Fac  (4) 

Activation  Record 


Fac  (3) 

Activation  Record 


answer  where  answer  =  fac(5)  where 
fac(n)  ==*  if  n  *=  0  then  1 

else  n  •  fac(n-l)  endif 


Figure  3.3 

Factorial  Program  and  Activation  Records 


As  an  example  of  the  code  generated  for  function  calls  and  recursion,  the  following 
PHI  program  fragment  is  used  .  C  <n)  =*  if  n  *  0  then  1  else  C  (n  -  1)  •  n  endif. 


This,  of  course,  simply  calculates  the  factorial  of  the  integer  n.  Figure  3.4  is  the 
listing  of  the  assembly  language  segment  which  is  generated  from  this  fragment. 

I  Address/Machine  Code  Assembly  Language  I 


0103  E94A00 

0150 

jmp  a 10000 
alOOOl: 

0106  B90000 

mov  cx,0 

0109  E80000 

E 

call  i_formal 

010C  B 80000 

mov  ax,0 

010F  E80000 

E 

call  iputvalue 

0112  E80000 

E 

call  iequ 

0115  E80000 

E 

call  igetvalue 

0118  3D0100 

cmp  ax,l 

01  IB  7509 

0126 

jne  a 10003 

01  ID  B80100 

mov  ax,l 

0120  E80000 

E 

call  iputvalue 

0123  E92600 

014C  jmp  al0002 

a 10003: 

0126  B 90000 

mov  cx,0 

0129  E80000 

E 

call  i_formal 

012C  B 90000 

mov  cx,0 

012F  E80000 

E 

call  i_fomuu 

0132  B80100 

mov  ax,l 

0135  E80000 

E 

call  iputvalue 

0138  E80000 

E 

call  isub 

013B  E80000 

E 

call  ppop 

013E51 

push  cx 

013F  57 

push  di 

0140  BB0100 

mov  bx,  1 

0143  E80000 

E 

call  i  mov 

0146  E8BDFF 

0106 

call  alOOOl 

0149  E80000 

E 

call  imult 
al0002: 

014C  E80000 

E 

call  del_scope 

014F  C3 

ret 

alOOOO: 

Figure  3.4 

Assembly  Language  Output  from  Factoral  Program 
The  label  "alOOOl"  at  address  0103  is  the  label  of  the  subroutine  which  returns  the 
factorial.  When  it  is  called,  pointers  to  the  values  of  the  arguments  are  placed  on  the  stack. 
If  the  subroutine  is  called  before  the  base  of  the  recursion  is  reached,  a  jump  is  made  to 
label  a  10003.  Then,  the  new  actual  value  (n  -  1)  is  calculated  and  placed  in  the  low  pan  of 
memory,  a  pointer  to  the  value  is  put  on  the  stack,  and  the  values  are  prepared  for  calling 
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by  the  next  subroutine  (lines  0126  to  0143).  The  factorial  subroutine  is  then  called  again. 
This  process  continues  until  the  base  of  the  recursion  is  reached;  in  this  case  a  pointer  to  the 
integer  value  is  put  at  the  top  of  the  stack  (line  01  ID),  and  a  jump  is  made  to  label  al0002. 
Here,  the  subroutine  "deLscope"  tears  down  the  activation  record  on  the  stack  and  puts  a 
pointer  to  the  result  of  the  function  at  the  top  of  the  stack.  Clearly,  recursion  in  the  PHI 
program  can  be  implemented  by  a  parallel  recursion  in  the  assembly  language  output  of  the 
compiler. 

Another  feature  of  the  output  code  shown  in  Figure  3.4  is  that  there  is  an  unconditional 
jump  around  the  function  (lines  0103  and  014F).  This  is  a  result  of  the  decision  to  output 
inline  code  in  spite  of  the  fact  that  functions  can  be  called  at  random.  There  are  both  space 
and  time  penalties  to  be  paid  for  these  jumps,  especially  since  each  function  must  have  a 
jump  and  label  instruction  bracketing  it.  However,  the  ultimate  effect  of  all  these  jumps  is 
to  get  to  the  label  at  the  bottom  of  the  program.  The  result  is  that  all  but  one  jump/label  pair 
could  be  eliminated  by  an  optimizer,  making  the  penalty  trivial.  Another  solution 
considered  was  to  generate  code  foT  functions  and  the  "main"  program  separately,  then 
combine  the  two  when  printing  the  output  from  the  code  generator.  This  was  not  done  for 
reasons  put  forth  in  the  section  that  describes  the  semantic  analyzer. 

Variable  and  constant  storage  is  word  oriented  rather  than  byte  oriented  to  take 
advantage  of  the  8086  processor’s  16  bit  capability.  Integers  and  naturals  are  both 
represented  as  single  words,  and  booleans  are  represented  as  integers,  either  1  or  0.  While 
this  boolean  representation  is  somewhat  wasteful  in  terms  of  memory  space,  it  allows  for  a 
great  deal  of  overlapping  in  certain  subroutines  used  in  function  calling  and  comparisons. 
It  is  planned  to  represent  real  numbers  with  two  words  of  memory,  and  sequences  using 
linked  lists.  Neither  of  these  types  have  been  fully  implemented;  however,  there  are 
provisions  in  the  compiler  for  adding  these  features  at  a  later  date. 
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There  is  currently  no  dynamic  allocation  of  registers.  Some  registers  are  used  for 
specific  purposes;  for  instance,  the  SI  register  is  used  to  mark  the  top  of  the  program  stack, 
and  of  course  the  BP  and  SP  registers  are  used  to  manage  the  machine's  stack.  In  general, 
arithmetic  processes  take  place  in  the  AX  register,  using  other  general  registers  as 
auxiliaries  as  needed.  When  variable  space  is  needed,  the  highest  unused  address  space  is 
allocated  and,  when  a  function  is  finished,  only  the  result  is  saved  in  storage;  all  other  value 
spaces  are  returned  for  use  by  the  program. 

Error  handling  is  probably  the  simplest  part  of  the  run-time  routines.  Any  run  time 
error  such  as  overflow  or  division  by  zero  errors  will  result  in  an  appropriate  error  message 
to  the  user  (see  Appendix  0  for  a  full  listing  of  error  messages).  Then,  program  execution 
will  terminate  and  control  is  returned  to  the  operating  system. 

C.  SEMANTIC  CHECKING  and  CODE  GENERATION 

The  PHI  compiler  utilizes  the  recursive  descent  technique  to  perform  semantic 
checking  and  code  generation  in  one  traversal  of  the  parser  tree.  In  most  cases,  tree  nodes 
are  filtered  through  the  semcheck  function,  which  calls  various  procedures  based  on  the 
name  of  the  node.  These  procedures,  in  turn,  call  semcheck  for  each  of  their  children, 
and  the  process  is  repeated  until  the  leaves  of  the  tree  are  reached.  The  function  semcheck 
then  returns  a  type  (e.g.,  integer,  real,  boolean),  which  the  parent  node  uses  to  determine 
the  semantic  correctness  of  its  subtree.  With  the  information  returned  from  the  semcheck 
function,  the  parent  procedure  can  do  one  of  three  things:  return  a  type,  convert  one  node 
to  a  different  type,  or  declare  an  error  condition. 

Concurrent  with  semantic  checking,  code  is  generated.  As  noted  above,  this  is 
assembly  language  code  written  to  a  buffer  in  memory.  If  an  error  condition  is  declared, 
however,  a  flag  is  set  and  code  generation  ends.  Semantic  checking  will  then  continue  until 
the  tree  is  completely  traversed  or  ten  errors  are  accumulated;  then,  the  semantic  checking 
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process  terminates.  Unlike  the  parser,  the  semantic  checker  makes  no  attempt  at  error 
recovery;  top-down  checking  simply  continues  normally  from  where  the  error  was 
detected. 

Top-down  semantic  checking  results  in  a  neat,  trim  package  for  the  back  end  of  the 
compiler.  Unfortunately,  there  are  some  problems  that  pure  top-down  checking  will  not 
solve.  For  instance,  determining  if  there  is  a  one-to-one  match  between  formals  and 
actuals  for  a  given  function  involves  some  detours  from  top-down  checking,  as  explained 
below. 

The  scoping  rules  of  PHI  provided  the  largest  challenge  to  writing  the  semantic 
checker.  One  solution  is  a  multiplicity  of  stacks.  The  size  of  these  stacks  depends  upon 
the  number  of  its  constituents  visible  at  any  one  time.  Usually,  the  proper  match  for  an 
item  is  the  one  found  closest  to  the  top  of  the  stack.  However,  because  of  the  semantics  of 
the  "and"  construct,  checks  against  the  variable-stack  do  not  always  follow  this 
convention. 

There  are  four  stacks  used  by  the  semantic  checker  the  type-stack,  the  variable-stack, 
the  definition-stack,  and  the  and-stack.  All  but  the  type-stack  are  implemented  as  linked 
lists.  This  implementation  sheds  the  disadvantage  of  static  length  arrays  at  the  cost  of  a 
slight  increase  in  memory  and  temporal  resources.  The  type-stack  uses  a  fixed-length 
array  of  300  entries  because  1)  the  basic  types  of  real,  boolean,  integer,  natural,  and  trivial 
will  be  accessed  most  frequently,  because  they  are  the  building  blocks  of  every  type  and 
sequence,  and  because  they  can  be  more  easily  accessed  from  an  array  than  from  a  linked 
list,  2)  a  list  of  300  type  entries  should  not  impose  an  extreme  burden  on  the  programmer, 
and  3)  the  planned  implementation  of  sequences  will  be  more  straightforward  if  the 
type-stack  is  an  array. 
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Type  Name 


#  of  Bytes 


Link  to  Next  Type 


Figure  3.5 
Type-Stack  Entry 

The  type-stack,  Figure  3.5,  is  meant  to  hold  both  the  basic  type  definitions  and  user 
defined  type  definitions.  This  stack  holds  both  the  name  of  the  type  and  the  number  of 
bytes  needed  in  memory  to  implement  the  type.  At  compiler  initialization,  it  contains  the 
five  basic  types  and  user  defined  types  are  added  as  they  are  encountered.  The  begin-end 
construct  of  the  language  (not  implemented  yet)  allows  declared  types  to  be  visible  over  a 
specified  range.  It  is  planned  to  implement  this  construct  by  setting  a  pointer  to  the  top  of 
the  stack  upon  encountering  the  begin  node  and  then  popping  the  stack  to  that  point  after 
both  of  the  node's  subtrees  have  been  checked. 


Variable  Type 

Formal  Flag 

Node  Pointer 

Link  to  Next  Entry 

Figure  3.6 

Variable-Stack  Entry 

The  variable-stack.  Figure  3.6,  holds  all  of  the  variables,  including  function  names, 
currently  seen  by  the  semantic  checker.  Each  entry  holds  a  pointer  to  the  hash  table 
containing  labels,  a  type,  a  pointer  to  the  tree  node  defining  it,  and  a  flag  to  designate 
whether  or  not  it  is  a  formal.  Whenever  a  variable  name  is  encountered  and  the  name  is  not 
a  call  to  a  function  and  not  a  data  definition,  it  is  put  into  the  variable  stack.  Then,  when  a 
scope  is  exited,  the  variables  local  to  that  scope  are  dropped  from  the  stack.  For  example, 
after  a  function  is  defined,  all  of  its  formals  are  popped  from  the  stack. 
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Figure  3.7 

Definitions  Stack  Entry 


The  definiuons-stack.  Figure  3.7,  contains  all  of  the  function  and  variable  definitions 
visible  in  a  given  scope;  e.g.,  the  declaration  C  :  SR  *  SZ  ->  SB  would  put  the  definition  C 
into  the  definition-stack.  This  entry  would  contain  the  type  of  C's  return  value  (Boolean), 
a  pointer  to  the  tree  node  that  contains  C,  and  a  pointer  to  a  linked  list  which  contains  its 
argument  types  (Real  and  Integer).  This  last  field  will  be  null  if  the  declaration  is  a  data 
definition.  This  stack  grows  and  shrinks  in  the  same  way  as  the  type  stack. 

The  authors  considered  combining  the  definitions-stack  and  the  variable-stack  because 
of  the  similarity  between  their  fields.  In  fact,  one  of  the  primitive  implementations  was 
designed  in  this  way.  However,  this  slowed  down  the  search  for  both  definitions  and 
variables  considerably,  and  the  overhead  needed  to  implement  these  two  as  separate  stacks 
is  small:  three  extra  functions  and  one  extra  pointer. 

The  need  for  the  and-stack  is  derived  from  the  scoping  rules  imposed  by  the  AND 
construct.  This  construct  allows  a  variable  to  be  referenced  before  it  is  declared  without  the 
benefit  of  Pascal's  forward  declaration  or  equivalent.  This  is  true  of  other  constructs  in 
PHI  such  as  the  WHERE  construct.  However,  the  AND  construct  cannot  be  parsed  in  such 
a  way  that  the  semantic  checker  can  see  all  variables  before  they  are  used,  because  either 
subtree  of  the  AND  statement  can  define  variables  used  by  the  other  subtree.  So,  a  program 
such  as  the  one  depicted  in  Figure  3.8  needs  a  vehicle  by  which  it  can  detect  that  the 
variable  d  is  defined  later  in  the  program.  The  and-stack  is  such  a  vehicle. 
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Figure  3.8 

Tree  With  Forward  Variables 

When  the  semantic  checker  reaches  the  AUXAND  node.  Figure  3.8,  a  flag  is  set  to 
indicate  that  AUXAND  has  been  traversed,  and  a  pointer  is  set  to  the  top  entry  of  the 
and-stack.  "Notfound"  is  returned  from  the  semcheck  function  when  the  variable  d  is 
reached,  but,  since  the  AND  condition  has  been  set,  a  pointer  to  d  is  put  in  the  and-stack. 
Note  that  d  is  later  defined  in  a  data  definition  (DATAUXDEF  node),  and  when  both  the  left 
and  right  subtrees  of  AUXAND  have  been  checked,  all  variables  in  the  and-stack  are 
checked  against  variables  in  the  variable-stack.  If  a  match  is  found,  d  is  defined  and 
removed  from  the  and-stack.  In  the  event  that  a  variable  is  not  found  when  the  AUXAND 
node's  complete  subtree  has  been  checked,  an  error  condition  (UNDEFINED  VARIABLE) 
would  be  set.  The  semantic  checker  would  recognize  this  condition  because  the  top  of  the 
and-stack  would  not  be  equal  to  the  mark  placed  at  the  top  of  the  stack  when  the  AUXAND 
node  was  entered.  Nested  AUXANDS  are  possible,  but  they  pose  no  problem  because  the 
top  of  the  and-stack  is  marked  when  the  auxand  node  is  traversed. 
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Variables  and  functions  are  represented  in  the  run-rime  by  a  call  to  an  assembly 
language  subroutine,  and  each  subroutine  must  have  a  discrete  name.  Also,  there  are 
several  labels  found  throughout  the  program,  and  each  of  these  must  have  a  name.  These 
names  are  generated  by  the  "name"  function  found  in  the  sem_u.c  module.  Each  name 
begins  with  the  letter  "a",  followed  by  6  digits.  Examples  can  be  seen  in  Figure  3.4. 


Figure  3.  9 
Tree  for  Function  f 

Function  definitions  presented  a  problem  that  was  solved  with  a  deviation  from  pure 
top-down  semantic  checking.  When  a  function  definition  (FUNAUXDEF  in  Figure  3.9)  is 
encountered  by  semantic  checker,  the  following  procedure  would  be  followed  (see  Figure 
3. 1 0  for  the  function  definition  entry): 

funid  node: 

check  for  definition-stack  entry  for  "F 
if  not  found 

return  (ERROR) 
get  a  pointer  to  the  first  formal  of  f 
get  a  pointer  to  the  first  formal  of  definitions-stack  entry 

while  both  pointers  <>  Nil  do 
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put  variable  in  varstack;  use  type  pointed  to  by  the  formal  list 
advance  both  pointers 
end  while  loop 

if  not  (both  pointers  —  nil) 

return  (FORMALS  MISMATCH) 
else 

put  "f  in  the  variable-stack 
return  (Type  of  f  =  INTEGER) 

end  else 

end. 

funauxdef  node: 

left  type  =  semcheck  (Left  Child) 
right  type  =  semcheck  (Right  Child) 

if  (left  type  <>  right  type) 

call  a  procedure  which  will  either 

convert  the  right  type  to  the  left  type  or  set  an  error  flag. 

endif 

end. 

When  a  function  is  called  with  arguments,  a  similar  process  takes  place  (refer  to 
Figure  3.1 1): 

actua.ist  :  Input  is  a  pointer  to  the  actualist  node 

Output  is  error  condition 

Check  definitions-stack  for  "f" 
if  T  not  found 

set  error  (FUNCTION  DEFINITION  NOT  FOUND) 

set  elistptr  to  fust  element  of  element  list 

elist  (elistptr) 

check  var  stack  for  T 
if  found, 

generate  code  to  call  T 
if  not  found 

if  and_flag  =  TRUE 

put  "f  in  the  and  stack 
else 

set  error  (FUNCTION  NOT  DEFINED) 
end. 

elist:  Input  is  a  pointer  to  the  element  list  node 

if  pointer- >rptr  <>  nil 

elist  (pointer->rptr) 

check  type  of  element  against  corresponding  formal  type 
if  types  don't  match 

set  error  (IMPROPER  ARGUMENT  TYPE) 
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else 

generate  code  to  put  pointers  to  argument  values  on  the  run-time  stack 
end. 


Figure  3.10 

Defmitions-Table  Entry  For  Function  f 


Type  conversions  are  implemented  in  the  semantic  checker,  albeit  the  code  generator 
does  not  yet  support  this  feature.  The  function  hnumconvert  (half  number-convert, 
found  in  the  module  semO)  will  check  to  see  if  a  conversion  of  the  right  subtree  of  a  node 
to  the  left  subtree  type  should  be  accomplished.  This  is  useful  for  function  definitions, 
where  the  body  of  the  function  may  be  converted  to  the  type  the  function  returns,  but  the 
converse  is  not  acceptable.  In  addition,  the  function  numconvert  (found  in  the  semO 
module)  will  convert  either  the  left  tree  type  or  the  right  tree  type  of  a  node.  This  is  useful 
for  certain  arithmetic  operations.  The  semantic  checker  considers  integer-to-real  and 
natural-to-real  conversions  to  be  legal.  Natural  to  integer  conversions  are  not  implicitly 
done,  since  both  of  these  types  are  represented  in  exactly  the  same  way.  On  the  other 
hand,  an  attempt  to  return  an  integer  value  for  a  function  which  has  a  declared  type  of 
natural  will  result  in  an  error. 
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f  (1,2) 

Figure  3.1 1 
Tree  for  Function  Call 

Variables  of  simple  type  (i.e,  natural,  integer,  or  real)  need  not  be  declared  before  use, 
although  such  a  declaration  may  be  made.  If  a  variable  is  undeclared  when  defined  by  a 
data  definition,  the  semantic  checker  will  attempt  to  classify  it.  If  the  semantic  checker 
expects  to  find  a  boolean  value,  the  variable  is  easily  classified  as  a  boolean  and  an  entry'  is 
put  into  the  variable  table.  If  a  numeric  variable  is  expected,  the  semantic  checker  will  try 
to  type  it  as  an  integer;  failing  this,  it  will  be  classified  as  a  real  number.  However,  the 
AND  construct  alters  this  somewhat.  If  a  variable  is  used  before  it  is  defined  by  a  data 
definition,  it  must  have  been  defined  using  the  LETDEF  construct. 

As  noted  in  the  section  on  run-time,  some  thought  was  given  to  generating  all 
functions  and  data  definitions  to  one  buffer  and  the  "main"  program  which  calls  these 
functions  to  another  buffer.  However,  this  would  be  an  inefficient  use  of  memory  space. 
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since  one  buffer  might  run  out  of  space  while  the  other  is  under-utilized.  Although  there  is 
a  proliferation  of  jump  calls  in  the  output  using  one  buffer,  an  optimizer  could  easily 
eliminate  all  but  one  call,  as  noted  above. 

D.  OPTIMIZATION 

There  is  no  optimization  module  implemented  in  the  PHI  compiler.  In  this  section  an 
attempt  will  be  made  to  identify  three  types  of  optimization  which  are  suitable  for 
implementation.  Also,  a  small  dissertation  on  what  optimizations  should  not  be  considered 
is  included. 

The  first  suitable  type  of  optimization  is  constant  folding.  The  purpose  of  constant 
folding  is  to  eliminate  multiple  consecutive  constants  in  arithmetic  expressions  [Ref  3:p. 
612],  and  the  function  numconvert  in  module  semO  makes  an  excellent  structure  in 
which  to  implement  this  optimization.  This  is  because  most  arithmetic  operations  call  this 
function.  It  would  be  straightforward  to  put  a  function  that  tests  the  left  and  right  children 
of  an  operand  node  to  see  if  they  are  constants,  then  perform  the  operation  in  the  compiler 
and  generate  code  for  a  constant  call.  However,  since  the  division  operators  do  not  call 
numconvert,  the  constant  folding  function  would  have  to  be  inserted  in  idiv  and  rdiv 
also. 

The  other  two  optimizations  arc  post-code  generation  optimizations.  The  first  one 
considered  is  jump  optimization.  This  should  be  the  most  worthwhile  to  implement:  if  the 
number  of  functions  and  data  definitions  is  n,  n  >  0,  there  will  be  n  -  1  unnecessary 
unconditional  jump  statements  and  labels. 

These  jump  statements  can  be  eliminated  by  replacing  the  first  jmp''  statement  with  a 
jump  to  the  last  label  in  the  code;  then,  because  "jmp”  is  not  used  for  anything  except  to 
circumnavigate  functions  and  data  definitions,  all  other  unconditional  jumps  and  their  labels 
can  be  eliminated. 
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The  last  type  of  optimization  is  a  form  of  peephole  optimization  Occasionally  there 
will  be  a  call  ppush  statement  followed  by  a  call  ppop  statement  This  is  unnecessary 
and  can  be  eliminated  The  8086  assembly  code  equivalent  of  push  followed  by  pop 
should  not  occur  in  the  present  design 

Dead  code  optimization  eliminates  code  inside  a  jump  when  that  code  contains  no 
labels.  It  is  not  necessary  to  implement  this  type  of  optimization  aith  the  current  design, 
since  unconditional  jumps  are  only  used  to  bracket  functions  and  definitions  However  ,t 
one  accepts  the  premise  that  programmers  occasionally  make  mistakes,  it  might  Nr 
worth  while  to  keep  track  of  which  functions  are  called  and  eliminate  axle  for  those  whith 
are  not  A  message  to  the  programmer  concerning  this  circumstance  would  he  useful,  too 
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IV.  RESULTS  &  CONCLUSIONS 


A.  RESULTS 

The  implementation  described  in  this  study  demonstrates  the  design  and 
implementation  of  a  compiler  for  the  functional  programming  language  PHI.  Since  this 
implementation  is  a  prototype,  it  does  not  possess  all  of  the  qualities  desirable  in  a  full 
implementation.  However,  the  necessary  hooks  are  present  and  the  design  is  mature 
enough  to  allow  expanding  the  prototype  to  a  full  implementation. 

The  PHI  compiler  front-end  implements  machine  independent  lexical  and  syntactic 
analyzers.  This  implementation  is  complete  and  faithfully  follows  the  syntax  of  PHI  — 
based  on  the  design  of  the  language  as  of  07  January  1987.  In  deciding  which  modules  to 
include  in  the  front-end  and  back-end,  the  authors  were  originally  guided  by  the  traditional 
methodology  of  placing  the  analysis  functions  in  the  front-end  and  generative  functions  in 
the  back-end  (Ref  8p.  20],  However,  as  the  design  of  the  PHI  compiler  progressed,  the 
authors  removed  semantic  analysis  from  the  front-end  and  combined  it  with  code 
generation  This  produced  a  one-pass  semantic  analysis/code  generation  phase. 

The  PHI  compiler  back-end  implements  a  machine  dependent  one-pass  semantic 
analyzer  and  Intel  8086  code  generator.  The  semantic  analyzer  implements  the  basic 
constructs  of  PHI  functions  and  data  definitions  may  be  defined,  and  the  integer,  natural 
number,  real  number,  and  boolean  types  are  fully  implemented.  Implementation  of  code 
generation  is  congruent  to  that  of  the  semantic  analyzer,  with  the  exception  that  the  real 
number  data  type  has  not  been  implemented. 
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B.  CONCLUSIONS 

It  is  possible,  using  traditional  technologies  to  design  and  implement  a  compiler  for  the 
functional  programming  language  PHI.  It  is  not  possible  to  utilize  either  pure  recursive 
descent  or  pure  deterministic  techniques  for  this  implementation.  The  syntax/semantics  of 
the  language  forced  a  degree  of  non-determinism,  and  one  instance  of  back-tracking  was 
required  in  the  PHI  compiler  front-end. 

The  overall  design  is  highly  modularized  facilitating  the  understanding  of  concept  and 
implementation.  The  authors  think  that  this  approach  will  greatly  reduce  maintenance  costs 
and  provide  greater  flexibility  in  making  changes  and  additions  to  the  PHI  programming 
environment.  It  should  be  possible,  for  example,  to  use  the  front-end  described  in  this 
thesis  to  drive  a  PHI  interpreter.  Being  able  to  abstract  out  this  front-end  and  use  it 
without  change  should  make  the  implementation  of  a  PHI  interpreter  relatively  simple. 
Modularizing  the  design  also  increases  portability  of  the  compiler  to  other  machines.  To 
demonstrate  portability,  the  authors  recompiled  the  front-end  and  executed  it  on  a  68000 
based  processor.  This  was  accomplished  with  no  modifications  to  the  source  program,  just 
replacement  of  C  run-time  header  files  for  the  new  target  machine. 

Removing  the  semantic  analyzer  from  the  front-end  permitted  coupling  semantic 
analysis  with  code  generation.  The  fixed-length  buffer  design  of  the  code  generator  is 
suitable  for  this  prototype  implementation  but  should  be  redesigned  utilizing  dynamic 
buffer  allocation  methods  in  follow  on  implementations.  The  authors  think  that  utilizing  a 
single  pass  through  the  parse  tree  is  practical  for  the  basic  constructs  of  PHI  and  believe 
this  methodology  is  suitable  for  future  designs  of  the  PHI  compiler. 
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V.  FURTHER  RESEARCH 


Further  research  may  be  broken  down  into  two  major  areas:  short  and  long  range 
projects.  The  former  may  be  further  broken  down  into  two  main  areas:  adding 
unimplemented  features  and  improving  the  PHI  programming  environment.  On  the  other 
hand,  all  long-range  projects  involve  only  the  programming  environment.  All  of  these 
areas  are  discussed  below. 

In  the  prototype  of  the  PHI  compiler,  both  Real  and  Compound  variable  types  remain 
unimplemented.  Compound  variable  types  consist  of  sequences,  the  Trivial  type,  user 
defined  types,  and  tuples.  Although  all  of  these  are  recognized  by  the  parser,  the  semantic 
checker  will  not  recognize  complex  types  and  no  code  will  be  generated.  The  Real  type  is 
recognized  by  the  semantic  checker,  which  can  discern  if  conversion  from  an  integer  or 
natural  type  should  be  accomplished;  however,  no  code  is  generated  to  implement  this  type 
in  the  run-time  structures.  Note  also  that  operators  which  operate  solely  on  complex  types 
and  reals  (e.g.,  the  real  divide  and  concatenate  operators)  are  not  implemented. 

One  other  operator  not  implemented  is  the  "l->"  operator.  In  addition,  argument 
bindings,  functionals,  and  FILEs  are  not  recognized  by  either  the  semantic  checker  or  the 
code  generator. 

Short-range  improvements  to  the  PHI  environment  may  come  either  after  a  full 
implementation  is  accomplished  or  may  be  developed  concurrently  with  the  full 
implementation.  Admittedly,  the  current  environment  is  analogous  to  instrumentation  on  a 
helicopter:  there  is  just  enough  to  know  that  the  system  is  running!  The  environment  could 
be  improved  by  implementing  the  interactive  mode  of  PHI,  as  opposed  to  the  current  batch 
mode.  A  sample  interactive  session  of  PHI  may  be  found  in  [Ref.  l:pp  1-17].  Also,  an 
interpreter  would  be  a  good  starting  point  toward  developing  a  practical,  working 


environment  for  PHI.  As  noted  above,  the  front  end  of  the  prototype  compiler  may  be 
adapted  for  this  purpose;  alternatively,  due  to  the  structual  similarities  between  PHI  and 
LISP,  an  ambitious  researcher  may  wish  to  write  an  interpreter  in  LISP. 

One  final  short-range  improvement  which  is  not  covered  by  either  category  would  be 
to  allow  more  than  64K  of  run-time  memory.  It  would  be  worthwhile  to  take  advantage 
of  the  large  amount  of  memory  most  modern  microcomputers  have,  especially  since 
sequences  and  recursion,  upon  which  PHI  is  based,  gobbles  up  memory  with  abandon. 

When  the  PHI  compiler  becomes  a  serious  user's  tool,  some  long-range  research  will 
become  viable.  Sophisticated  input  and  output  would  be  a  vital  consideration,  and  the 
minimal  I/O  methods  now  in  use  would  need  substantial  improvement.  The  most 
ambitious  researchers  in  this  direction  should  consider  a  bit-mapped  display  with  the 
possibility  of  a  syntax-directed  editor.  Also,  based  on  the  authors’  limited  experience  in 
PHI  programming,  a  debugger  would  be  a  necessary  tool  for  the  serious  programmer. 
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APPENDIX  A 

THE  FUNCTIONAL  LANGUAGE  PHI  —  O 

(CONCRETE  SYNTAX  OF  <D  —  10/16/86  ) 


Grammatical  Notation: 


Both  '{Ci,C2,...,CnJ'  and  <  >  mean  exactly  one  of  Cj,  C2,..-,  Cn. 

I  Cn  J 


Similarly,  fCi  I ...  I  Cn]'  and 


-Ci  - 

-  Cn  _ 


mean  at  most  one  of  C  l,...,  Cn.  The  notation  C 


means  zero  or  more  Cs;  'C+'  means  one  or  more  Cs;  ’CD  means  a  list  of  one  or  more 
Cs  separated  by  Ds.  Terminal  symbols  are  quoted  when  they  could  be  confused  with 
metasymbols. 


Grammar: 


BLOCKBODY 


f  QUALEXP 
l  LETDEFS 


LET  DEFS  ;  BLOCKBODY 


(ID)  FORMALS  3  QUALEXP 
ID  :  TYPEEXP 

TYPE  ID  (FORMALS)  s  TYPEEXP 


QUALEXP 


AUXDEFS 


AUXDEF 


f  EXPRESSION 

1  QUALEXP  WHERE  AUXDEFS 
AUXDEF  AND  ... 

(ID)  FORMALS  *  EXPRESSION 


FORMALS 


ID 

(  FORMALS,  ...  ) 


EXPRESSION 


[EXPRESSION  V)  CONJUNCTION 


CONJUNCTION 


(CONJUNCTION  A)  NEGATION 
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NEGATION 


[  -  ]  RELATION 


RELATION 

=  [SIMPLEXP  RELATOR]  SIMPLEXP 

RELATOR 

At 

Vt 

V 

A 

■H. 

It 

II 

SIMPLEXP 

=  [SIMPLEXEP  ADDOP]  TERM 

ADDOP 

=  {  +  1  -  1  :  1  A  ] 

TERM 

=  [TERM  MULOP]  FACTOR 

MULOP 

=  {  X  1  /  1  +  ] 

r  +  i 

FACTOR 

=  primary 

f  APPLICATION 

PRIMARY 

i  pwmaryappucation  . 

APPLICATION 

=  [APPLICATION]  ACTUAL 

ACTUAL 


DENOTATION 

CONDITIONAL 

ARM 

COMPOUND 

ELEMENTS 

ARGBINDING 

OP 

BLOCK 


ID 

DENOTATION 

CONDITIONAL 

COMPOUND 

ARGBINDING 

BLOCK 

FILE  '  CHAR" 


’  CHAR  ' 

DIGIT*  [.DIGIT*  ] 
FORMALS  |-»  ACTUAL 


IF  ARM  ELSIF  ...  [ELSE  EXPRESSION]  ENDIF 
EXPRESSION  THEN  EXPRESSION 


(ELEMENTS  ) 
{’ELEMENTS  '}' 
<  ELEMENTS  > 


[QUALEXP, ...] 


'[  X  OP  QUALEXP  f  ']' 
l  QUALEXP OP  J 

(  ,  I  RELATOR  I  ADDOP  I  MULOP  I  ! 
BEGIN  BLOCKBODY  END 


48 


DEFS 


DEF  AND  ... 


TYPEEXP  =  TYPEDOM  [  -» TYPEEXP  ] 

TYPE  DOM  =  TYPETERM  [  +  TYPEDOM  ] 

TYPETERM  =  TYPEFAC  ( X  TYPETERM  ] 

r  TYPEPRIMARY 
TYPEFAC  =  (  TYPEPRIMARY* 

l  ID  «  TYPEEXP,  ...  >> 

[ID  1 

TYPEPRIMARY  =  ^  PRIMTYPE  ^ 

l (TYPEEXP) J 
PRIMTYPE  =  (R1ZINIBI1I  TYPE  ) 

For  batch  use,  a  program  is  considered  a  BLOCKBODY;  for  interactive  use  it  is  considered  a 
SESSION: 


SESSION 

COMMAND 


COMMAND* 

f  DEF  1 
I  QUALEXP  J  » 
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uiiin  m  mmm  uvwuvri 


CWWW'lM  hr  1QR  kn  nn  IffiDT  hpiui  vnLWWvn  .muromur*' jn»  *  «  nv>r>^«TBi 


APPENDIX  B 

THE  FUNCTIONAL  LANGUAGE  PHI  —  O 

(CONCRETE  SYNTAX  OF  <D  —  03/03/87  ) 


Grammatical  Notation: 

Both  '(Ci,C2,...,Cn}'  and  « 

Similarly,  '[Cl  I ...  ICnj*  and 


mean  exactly  one  of  Ci,  C2,...,  Cn 

^  Cn  ' 

Cl  - 

:  mean  at  most  one  of  C  1 . Cn.  The  notation  C*’ 

L  Cn  - 


Cs  °n.  CSt.C"  OT  m0re  'CD  . . means  a  list  of  one  or  more 

metasymbols.  ^  °  Temunal  symbols  m  £luored  »h'n  they  could  be  confused  with 


Grammar: 

BLOCKBODY 

DEF 

QUALEXP 

AUXDEFS 

AUXDEF 

FORMALS 

EXPRESSION 

CONJUNCTION 


f  QUALEXP  1 

l  LET  DEFS  ;  BLOCKBODY  / 

fRECl  i  ;  TYPEEXP  (BE  I  IS  }]  [ID]  FORMALS  3  QUALEXP; 

(TYPE  ID  [FORMALS]  a  TYPEEXP 


|  EXPRESSION 


QUALEXP  WHERE  AUXDEFS 
AUXDEF  AND  ... 

[ID]  FORMALS  ■  EXPRESSION 


} 


ID 

(  FORMALS 


[EXPRESSION  V]  CONJUNCTION 


(CONJUNCTION  A]  NEGATION 
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N 

s' 


3 


V 

% 

•N 

r 

1 

•W 


An -WA  .Xa'.  .  >.V.\,a'. 


NEGATION 

RELATION 

RELATOR 

SIMPLEXP 

ADDOP 

TERM 

MULOP 

FACTOR 

PRIMARY 

APPUCATION 

ACTUAL 

DENOTATION 

CONDITIONAL 

ARM 

COMPOUND 

ELEMENTS 

ARGBINDING 

OP 


[  ~  ]  RELATION 

[SIMPLEXP  RELATOR)  SIMPLEXP 
(=l*l>l<!<l>lel«l— >} 
[SIMPLEXEP  ADDOP]  TERM 
{  +  I  -  I  :  I  A  I  4-  I  1') 

[TERM  MULOP)  FACTOR 

[Xl/l+l«l;IX) 


r  f  ELEMENTS  ’)'  ] 
J  (ELEMENTS)  L 
ELEMENTS  '}'  [ 
V  <  ELEMENTS  >  J 


[EXPRESSION, ...) 

top  i 

’['  <  OP  ACTUAL  \  T 
l  ACTUAL  OP  J 


(  ,  I  RELATOR  I  ADDOP  I  MULOP  I  SUB  ) 
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nr 


W"  V*  v."  HP  VTV"V*YwVTV,*y_'^-.i  fwmrrit^  v.-  *-  h  -k 


BIjOCK 

DEFS 

TYPEEXP 

TYPEDOM 

TYPETERM 

TYPEFAC 

TYPEPRIMARY 

PRIMTYPE 


BEGIN  BLOCKBODY  END 
DEF  AND  ... 

TYPEDOM  [  -»  TYPEEXP  ] 

TYPETERM  [  +  TYPEDOM  ) 

TYPEFAC  [  X  TYPETERM  ] 

(  TYPEPRIMARY*  1 

l  TYPEPRIMARY  [  ACTUAL  ]  J 

flD  [  «  TYPEEXP.  ...»  )  ) 

^  PRIMTYPE  l 

U TYPEEXP)  j 

(  R  I  Z  I  N  I  2  I  1  I  TYPE  ) 


For  batch  use,  a 
SESSION: 

SESSION 

COMMAND 


program  is  considered 


=  COMMAND+ 

f  LET  DEF  1 
l  QUALEXP  J  ; 


a  BLOCKBODY;  for  interactive 


use  it  is  considered  a 


•J  • 


~rr»ENDIX  C 
REPRESENTATIO 


Reference 


ASCII 


< 

< 

> 

* 

e 

e 

v 

A 


LESS 

<= 

>= 

<> 

IN 

NOTIN 

V 

A 


x 

/ 


— » 
A 


★ 

/ 

% 

-> 

A 


k 


l-> 


Aj 


A  !  i 


T* 

R 

2 

N 

B 

1 


T@ 

$R 

SZ 

SN 

SB 

SI 


nnrvnr;*;  *v»-.^r<Ti- 


APPENDIX  D 

THE  FUNCTIONAL  LANGUAGE — <J> 

( RIGHT-RECURSIVE  GRAMMAR  ) 


Note:  (...) 

-j 

means  zero  or  more  occurrences 

C..)  + 

means  one  or  more  occurrences 

(...)n 

means  from  zero  to  n  occurrences 

(xly) 

means  either  x  or  y,  but  not  both 

BLOCK 

::=  BEGIN  BLOCKBODY  END 

BLOCKBODY 

LET  DEFS;  BLOCKBODY 

QUALEXP 

DEFS 

::=  DEF  (AND  DEFS)* 

DEF 

(ID)1  FORMALS  £  QUALEXP 

ID :  TYPEEXP 

TYPE  ID  (FORMALS)1  s  TYPEEXP 

QUALEXP 

::=  EXPRESSION  (WHERE  AUXDEFS)* 

AUXDEFS 

AUXDEF  (AND  AUXDEF)* 

AUXDEF 

(ID)1  FORMALS  s  EXPRESSION 

FORMALS 

(  FORMALS  (NORMALS)*  ) 

ID 

EXPRESSION 

CONJUNCTION  (  V  CONJUNCTION 

CONJUNCTION 

NEGATION(  A  NEGATION)’ 

NEGATION 

::=  (-)1  RELATION 

RELATION 

::=  SIMPLEXEP  (RELATOR  SIMPLrXP*1 

RELATOR 


SIMPLEXP 


ADDOP 


TERM 


VfULOP 


LESS 

GREATER 

< 


:=  TERM  (ADDOP  TERM) 


:=  FACTOR  (MULOP  FACTOR)’ 


FACTOR 


♦  PRIMARY 
-  PRIMARY 
PRIMARY 


PRIMARY 


APPLICATION 


acti  al 


DEV  )T  A  ru  )N 


=  APPLICATION  (!  APPLICATION) 

=  ( ACTl  AL  )* 

=  ID 

DENOTATION 
CONDITION  AL 
COMPOUND 
ARGBINDING 
BLOCK 


FILE  *<(  HAR)‘  ’ 

•THAR  i'  ’ 

'  DIGIT) * 

'  DIGIT  i*  .  '  DIGIT  i ' 
FORMALS  !-»  ACT!  AL 


NiilC  CHAR  van  -  VS(  II  C 
Note  DIGIT  van  -  O 


Nj2I£  char  van  =  ASCII  *2  ASCII  :> 


ASCII  :> 


•  cm  >rn<  >nai 


ALF  <  ALFM  M 


Note  Uf  -an  s  /  \  / 

ALFNI  M  an  -  a  /  \  /  O  '* 


-  IF  ARM  i  F.LMF  \RM  ’  FI.SF  E  X  PW  I  S  s ;«  S  »■  \| 

-  t  V  PRES  SI*  *N  THE  N  r  X  PR  E  s  s  i* 


COMPOUND 


(  (ELEMENTS)1  ) 

{  (ELEMENTS)'  } 

<  (ELEMENTS)'  > 

ELEMENTS  QUALEXP(,QUALEXP)* 

ARG  BINDING  =  [  op  1 

f  OP  QUALEXP  | 

[  QUALEXP  OP  ] 

OP  ::=  , 

RELATOR 

ADDOP 

MULOP 

♦ 

TYPEEXP  ::  =  TYPEDOM  (  -»  TYPEDOM)* 

TYPEDOM  ::=  TYPE  TERM  (+  TYPETERM)* 

TYPE  TERM  ::=  TYPEFAC  (  *  TYPEFAC)* 

TYPEFAC  ::=  TYPEPRIMARY® 

TYPEPRIMARY 

ID  « TYPEEXP  (,TYPEEXP)*  » 

TYPE  PRIM  ARY  ::=  (TYPEEXP) 

ID 

PRIMTYPE 

PR  IMTYPE  .:= 

2 

H 

£ 

1 

TYPE 

FOR  INTERACTIVE  IMPLEMENTATION  OF  0 

SESSION  =  (COMMAND)* 

COMMAND  =  (DEF  I  QUALEXP)  ; 


appendix  e 

ROCK  COMPILER  HEADER  FILES 


/*******«***************★★**★**★***★★*★*****★*******★******■****★******** 
*  THIS  FILE  CONTAINS  HEADER  FILES  REQUIRED  BY  THE  ROCK  COMPILER  * 

**********#******#*****************************************«****«******/ 


'  PUBLIC  DOMAIN  SOFTWARE 


*  Name  :  scanner  definitions  * 

*  File  :  scanner. h  * 

*  Authors  :  Ma j  E.J.  COLE  /  Capt  J.E.  CONNELL 

*  Started  :  10/10/86 

*  Archived  :  12/11/86  * 

*  Modified  :  01/10/87  -  Update  keywords  JC  * 

************************************************************************ 

*  This  file  contains  definitions  used  by  the  scanner , parser ,  and  * 

*  error  recovery  routines.  * 

ft*********************************************************************** 

*  Modified  :  01/10/87  Corrections  to  comply  with  latest  definitions  * 

*  of  the  language  and  update  keywords.  JC 


r********************i 


r******************i 


*  -e  f  .  '  e  f.  _  F 


3YTENVV  ; 

. .- e  VAX  XEYW 0?:s  1  ’ 

•  2er  . - e  SAVES  III  1 9 

•  Te ‘ . - e  VAX 1 1 NE  9  Z 

•  z e !  .  -  *?  :  A3LE5  1 2  E  1  C 


•  syste-  ■'jecer  :e'*.  -  s  .  . 

•  rea  .  »y  .  9  ,  :  \  -  z*>  >  :  r  ~ 

•  .ergt  r.  u  *  s'”,  -  j  r  ; 


/*  General  Token  Types  */ 

Listing  of  symbols  can  be  found  at  end  of  iis' 


it  SEGUES"’* 


'  •»  :SZ  SEGUES"? 


*  i/ i  v  MjnufmS 


/  >*/  V  «*  ’  •  •*.  *•, 


wwniwinwmwwwwim^  ^ 


♦define 

COMMA_ 

17 

♦def ine 

LIP AREN _ 

18 

♦define 

RTPAR£N_ 

19 

♦define 

EQUIV 

20 

♦define 

ORLOG_ 

21 

♦define 

ANDLOG_ 

22 

♦  def  ir.e 

NEC LOG _ 

23 

♦define 

COLON,” 

24 

♦define 

CAT_ 

25 

♦  def  ir.e 

LTBRAKET, 

26 

♦  def  i  r.e 

RT3RAKET, 

27 

♦define 

ltsclig. 

28 

♦  def  ir.e 

RTSQU IG_ 

29 

♦aef ine 

EMPT_LIT_ 

30 

♦  def  ir.e 

RTARROW, 

31 

♦  def  ir.e 

linertarrow. 

32 

♦define 

LITERAL, 

33 

♦def ine 

IDENTIFIER, 

34 

♦def ine 

CONSTANT, 

35 

♦def ine 

REAL, 

36 

♦define 

INTEGER, 

31 

♦  def  ir.e 

NATL’RAL, 

38 

♦define 

boolean” 

39 

♦  def  ir.e 

TRIVIAL, 

40 

♦  def  ir.e 

CHAR, 

41 

♦  def  i  r.e 

STRING, 

42 

♦  def  *  r  e 

STAR, 

43 

♦  def  ir.e 

PCS, 

44 

♦  def  ire 

NEG, 

45 

♦  aef  ir.e 

KW 

46 

/*  KEYWORD 


/*  eof,  error,  unknown  token,  <- 
,  ,  ( ,  )  ,  *"* ,  \  / ,  /  \ ,  — ,  • ,  ,  (, 
identifier,  constant,  SR,  $2,  $N 
unary  plus,  unary  minus,  keyword 


<>,  <,  >-,  >,  +,  *,  %,  /, 

],  (,  1,  ->,  l->,  literal, 

SB, $1,  character,  string,  @, 


/*  Keywords  */ 


•  aef 

:  ~e 

AN  3 

n 

♦  aef 

;  r  e 

9ec:n_ 

•  aef 

.re 

EL3E_ 

2 

•  aef 

.  re 

els:  f 

3 

•  aef 

.  re 

EN3 

4 

•  aef 

;  r.e 

f.nsif 

5 

•  ief 

.  "  e 

FILE 

6 

•  :e‘ 

.  r  e 

Z? FATE? 

? 

•  aef 

.  ~e 

8 

•  ae  f 

■  •=* 

:  \ 

9 

•  ae  * 

-  e 

LESS 

1  C 

»  ae  * 

.  '  e 

..ET 

•  f 

.  "  R 

NOTIN 

:  2 

»  :m' 

-  p 

*£AD 

;  3 

•  l*v  * 

THEN 

;  4 

•  Zf»  * 

■  e 

~YPE 

: 

• 

whehe 

.  f 

•  :♦>  * 

■  *-* 

;  TE 

58 


>  -  v  v 


♦  define  CAI.1.0C  (y,  x)  ((x*l  ca.icc  iy,  s  ;zeof  ;  xi  >  . 
struct  NStruct  < 

'  *  sf r-cr.re  •  -  ;  .  5  j-.--: 

•  s  0  r  s  r  **  .-• 

char  name [NAMES  I ZS  ;  ‘ 

struct  NStruct  *link; 

typedef  struct  NStruct  NaneRec; 
extern  cnar  •caUocll; 

extern  cnar  *malloc(); 

•end: f 


S9 


V  V  V  v 


1  1  r-W  -r 


. . . . . 

*  PUBLIC  DOMAIN  SOFTWARE 

*  Name  parser  definitions 

*  file  parser. h 

Authors  :  Maj  E.J.  COLE  /  Capt  J.E.  CONNELL 

*  Started  10/20/86 

*  Archived  12/11/86 

'  update  NodeStruct  definition  JC 

********  *  *****  **  *  *  *  *  *  *  *  «  *  *  *  *  *  *  * 

This  file  contains  definitions  used  by  the  parser 


Modi f ied 


01/10/87 

node 


update  NodeStruct  to  hold  the  type  of 


:  r.e 


*  *  * 

9  ;  f  r 

*  *  *  * 

ae  f 

L£7DEr 

*  *  *  * 

«  dp* 

•  r  ’"rr 

*def 

;  ~  e 

::  ££an: 

'  2 

•TP? 

,  -p 

k  INCH? 

'  j 

*Te  f 

:  -e 

•••;  n  :  3 

'4 

•  le  f 

.  **  e 

T 7N3EF 

*ief 

:  -e 

CATACE,  ?' 

*6 

•  Te  f 

.  -  e 

7D£F I 3 

<  le  * 

_  -  e 

TbEFFVS 

8 

*ie' 

:a?aa:;xcef 

•  } 

•  2P  * 

.  “  p 

E VNAJXOE- 

^ : 

*  ie  ? 

~e 

AJXANC 

8 

»  je  ‘ 

r  p 

AC  .  A  _  .. .  3  . 

A  2 

•  IP  ? 

-  p 

i ESSENCE 

8  ; 

•  2P  ? 

-  p 

FCSMAl 

84 

•  IP  ?  . 

-  e 

■-  w ..  1 3  r 

8  c 

-  o 

cy?  ?  YCcypccNr 

HiS 

*TP  ? 

*•  p 

; MPTYSE.2FSCE 

•i  > 

*  IP  * 

■  e 

A  ?  1 3  :  N  r  7  r 

)  - 

*  '2P  * 

'  M 

A  .8  . : .  •  A  :  ?  p 

i; 

•  :«?  •!  . 

-  P 

4  a  : -a  : -  r 

4< 

*  TP  * 

-  » 

*  f  p  r  p  •  •  - 

4  } 

*  IP  * 

1> 

■  V  -  *  V  r  ;; 

-i4 

•  TP  * 

-  P 

*Y?E?xr: :  »r 

4  - 

•  ’.p! 

•  M 

- 

•  ;p' 

■'  P 

w  ;  - 

•  IP*  . 

P 

-  -  -  3 

_ 

*  :p  * 

'  P 

*  •  : 

-iP  i 

«>  ' 

■  V„  3P  f  pp  . 

IpS*  r  .  ' 


'  IPX  ; 

'  f  ip. 


i  p  *  \  ’ 


*  f» ' 

p  •  ,;♦> 


(H) 


*-*±+i*^ <2^/ *y.y.y .y.y.  >.y  .yon^y ^ ^  vr 


struct  NoaeStruct  **ptr; 
struct  SodeStruct  *rptr; 

tyoedef  srr.ct  NodeScr-ct  SodeSec,  *rodal; 

NcdePec  'CreateNode  i ) ; 

tear  "NcdeNa.-e  1 1  ; 

/  *  globa.  var-.:st  rurcer  err 

ex-.er-  .rt  cut  errors;  /  *  during  scar  ar.a  parse 

exterr  .  r:  argc.ra;  /'  globa.  flag  -  -sea  :s  -a<e 

/*  deter-: sc ic 

exterr  c.rar  *calicc(>;  /*  def  ^sea  fror  <stdlibs 

exterr.  c.rar  *-allcc(); 
exterr  E r  r  or Handle r () ; 
exterr  WnreErrcrs  1 1  ; 

/•«****.****.*****•«  External  Utility  Functions  *************** 

ex'er~  NodePec  *CreateNoae  1 1 ; 

exterr.  cr.ar  •SoaeN'are  (  i  ; 

exterr.  ffaxeNewRoot  <)  ; 

exterr  1 sE or ra. ( i ; 

exter  r  1 3a  -  1  I )  ; 

exterr  EatE.- ( I ; 

exterr  .or.g  Bypass  (); 

•include  (scarcer  .  r. > 

- ce  (errors.  "P 

•  e-g:  f 


*v 


tnun 


1 


/********»*******************»**************»*******************im*«*** 

*  PUBLIC  DOMAIN  SOFTWARE  * 

*  * 


*  Name 

*  File 

*  Authors 

*  Started 

*  Archived 

*  Modified 


error  file  definitions 
erors .h 

Maj  E.J.  COLE  /  Capt  J.E. 

01/20/87 

04/07/87 


CONNELL 


* 

* 

it 

It 

it 


*  This  file  contains  definitions  used  by  the  error  recovery  routines.  * 

1tirii1t1t1tirit1titit1titit1i1t1tiiititirit1tit1t1r1tit1t1t1titit1tititit1ticitititiririi1t1tir1t1tir1t1tit1t1tit1tit1tititit1iititir1t1r1tit 

*  Modified  * 

**********************************************************************/ 


♦ifndef  MAXERRORS 


♦define  MAXERRORS  10 


/******«*****»*»»***.*»..  PARSER  ERRORS  ***************************»**»/ 


♦define 

ERRO 

0 

/* 

11  or  ■ 1  —  •  w/o  • > • 

♦define 

ERRX 

1 

/* 

RESERVED  FOR  FUTURE  USE 

♦define 

ERR2 

2 

/* 

’\‘  w/o  '/'  --  bad  iogica.  OR 

♦define 

ERR3 

3 

/* 

'S'  w/o  proper  following  on.an 

♦define 

ERR4 

4 

/* 

invalid  numeric  constant 

♦define 

ERR5 

5 

/* 

literal  w/o  ending 

♦define 

ERR6 

6 

/• 

unidentified  c.dar  m  mout  fi 

♦def ine 

ERR? 

7 

/* 

out  of  memory 

♦define 

ERR8 

8 

/* 

error  in  statement  foi. owing 

/* 

•  XX  1 

♦define 

ERR9 

9 

/* 

error  in  type  definition 

/* 

following  1 xx ’ 

♦define 

ERR_a 

10 

/• 

unable  to  complete  evai  of 

/  * 

tde  b.ocxDoay 

♦define 

ERR_b 

11 

/’  * 

missing  or  -isp.aced  ;  after 

/* 

definition 

♦define 

ERR  c 

12 

/* 

invalid  Cua.Exo 

♦define 

ERR_d 

13 

/♦ 

invalid  TypeExp 

♦define 

ERR  e 

14 

/  * 

bad  or  missing  forra^s 

♦define 

ERR_f 

15 

/* 

missing  or  ^ispiacecj 

♦define 

ERR_g 

16 

/  # 

missing  ID  after  ’TYPE’ 

♦define 

ERR  h 

17 

/* 

bad  def in  it; or  after  AND 

♦define 

ERR  i 

18 

/  * 

"‘is sing  or  bad  AuxDef  after 

/  * 

WHERE 

♦def ine 

ERR_  } 

19 

/* 

missing  or  -isp.aced  ' l • 

♦def ine 

ERR_< 

20 

/  * 

error  ;n  processing 

/  * 

successive  Actuals 

#def  i  r.e 

ERR  1 

21 

/  * 

"•is sing  ..ter a*  after  <eyw~.  ro 

/  * 

r  i  le  m 

#def  i  r.e 

ERR  m 

22 

/  * 

"iss.rq  or  invalid  exp  after 

Keyword  **> 

#def  i  r.e 

ERR  n 

23 

IF  statement  w  o  END  IF 

♦  aef  i.ne 

ERR  o 

24 

error  in  for-a.s  precea.r ; 

♦def ine 

ERR_p 

25 

- 1  s  s  i  r.g  or  .  r.  va . .  d  i.a.-xr 

• 

fol. owing  comma  oc 

♦def ine 

ERR  q 

26 

error  : r  ArdB.rdi-g  - 

Q-a.Exp  :;r 

♦def ine 

ERR  r 

27 

'  * 

off  in  DZCNE--r it. ere- tea 

*  feat-re 


62 


'.Vaw, 


••'.V 


.V.VA'W 


♦define 

£RR_s 

28 

/* 

♦define 

ERR_t 

29 

/* 

♦define 

ERR_u 

30 

/* 

♦define 

ERR_v 

31 

/* 

♦define 

ERR_w 

32 

t « 

♦define 

ERR_x 

33 

/* 

♦define 

ERR_y 

34 

/* 

♦define 

ERR  z 

35 

/  * 

/*  NOTE:  s  through  z  reserved  for  future  use  */ 
/**********************  semantic  ERRORS  ****************************** 


♦define 

ERR_aa 

35 

/* 

Numeric  value  expectea 

♦define 

ERR_bb 

35 

/* 

Natural  expected 

♦define 

ERR_cc 

35 

/* 

Integer  or  natural  expected 

♦define 

ERR_dd 

35 

/* 

Error  in  Tuple  Definition 

♦define 

ERR  ee 

35 

/* 

Undefined  var  in  "ana"  sceoe 

♦define 

ERR  ff 

35 

/* 

Function  w/o  function  aef 

♦def ine 

ERR  gg 

35 

/* 

Formais  mismatch 

♦define 

ERR_hh 

35 

/* 

Undefined  function 

♦define 

ERR_ii 

35 

/* 

Real  Number  expected 

♦define 

ERR  :  i 

35 

/’ 

Invalid  Constant 

♦define 

ERRJxk 

35 

/* 

Boolean  value  Expected 

♦define 

ERR_11 

35 

/* 

Boolean  Operator  Expected 

♦define 

ERR_mm 

35 

/* 

Out  of  run-time  memory  space 

/ 


♦endif 
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W»T 


*  PUBLIC  DOMAIN  SOFTWARE  * 

*  * 


*  Name 

*  File 

*  Authors 

*  Started 

*  Archived 

*  Modified 


Semantic  Definitions  Header  File 
Semcheck . h 

Maj  E.J.  COLE  /  Capt  J.E.  CONNELL 

01/01/87 

04/10/87 

04/13/87  "FILENAME”  eliminated  EC 


★ 

* 

★ 

★ 

★ 

* 


*  This  file  contains  the  header  file  and  definitions  for  the  semantic  * 

*  checker  and  code  generator  of  the  PHI  compiler  * 


*  Modified  :  04/13/87  "FILENAME"  eliminated;  output  path  now  * 

*  depends  on  user's  input  EC  * 

JUT********************************************************************/ 


/******************************  Externals  ****************************/ 

♦include  <scanner.h> 

♦include  <parser.h> 

♦include  <errors.h> 

♦include  <stdio.h> 


/*******************************  Globa Is 

******************************/ 

♦define 

NOTFOUND  0 

/• 

Definition  for  findvar 

*/ 

♦define 

UNTYPED  0 

/• 

Type  Definitions  and  sizes 

*  / 

♦define 

BOOLEAN  1 

♦define 

BOL_BYTES  2 

♦define 

REAL  2 

♦define 

REAL_BYTES  4 

♦define 

INTEGER  3 

♦define 

INT_SYTES  2 

♦define 

NATURAL  4 

♦def ine 

NAT_BYTES  2 

♦define 

ERROR  0 

♦define 

MAXADDR  64000 

/• 

Max  ♦  of  bytes  in  var  space 

*  ' 

♦define 

MAXTYPES  300 

/• 

Max  ♦  of  types  in  one  scope 

«  / 

♦define 

CCDE_S IZE  20000 

/* 

Max  size  of  code  buffer 

♦define 

START_ADDR  0 

/• 

Starting  address  for  varspace 

♦def ine 

TYPE_INIT  5 

/• 

Pointer  to  the  »ast  initial 

-  / 

/• 

typetable  entry 

♦define 

CNTRL_Z  26 

/* 

Control  Z  ascii 

♦define 

ENDSTRING  0 

/• 

String  terminator 

♦define 

NL'M_BASE  4  8 

/• 

Lowest  ascii  number 

♦define 

5TACKSIZE  10000 

/• 

Increase  in  stacx  size 

♦define 

SIZEBUFFER  30000 

/• 

Size  of  output  buffer 

♦  def  i  n.e 

ADD  1 

i  * 

Sem  checx  codes  for  aritn  cos 

* 

•def ine 

SUB  2 

•define 

DIVIDE  3 

•def ine 

MULT  4 

♦  def  ere 

SEM_ERR  3 

/  • 

Flag  to  indicate  semantic 

* 

/  * 

error  follows 

• 

♦  ifr.def  S' '-'Ll 
•define  NULL  3 
•end i f 
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n’I.LV^-U. 


£•***★'****★'****'*'*★■*•*•*1 


Type  Definitions 


★ 

*  ★  ★  i 


r**************  j 


typedef 


in-  optype, 
E  LAG , 

PH I TYPE  * 


/*  Arithmetic  operations 
/*  Generic  flag  type 
/*  Types  found  in  language 


typedef 

typedef 


char  stg  [20!; 

struct  and_struct  ‘ar.dptr; 


/**’ 
typede  f 


/*  Assembly  language  code  names  *' 
/*  Pointer  to  and  table  entries 

*********  j 


struct  typenode  ( 
char  name  [10); 
int  bytes; 

struct  typenode  'typeptr; 
i  mode; 


Typetable  Definitions 

/*  Typetable  entries 


Formallist  Definitions 

typedef  struct  formnode  {  /*  Formal  stack 

int  name,  type;  /*  formname,  formtype 

struct  formr.ode  ‘Link;  Link  for  list 

)  f.node; 


*  ★  *  / 
*  / 


/  *  *  * 

tyoeaef  struct  varnode 


Vartable  Definitions 


r  *r  ★  *  *  ★  < 


/*  Entry  for  variable  stacx 


int  type. 

/* 

var name,  vartype 

form, 

/* 

Flag  set  if  var 

is  a  formal 

def ; 

/* 

True  if  var  is  a 

definition 

nodal  nptr; 

/* 

ptr  to  defining 

node 

fnode  *fptr; 

/* 

ptr  to  formals 

struct  varncde  ‘link; 

/* 

Link  for  list 

>  *varptr; 


'******* 


Def table 


Definitions  **************•*******/ 


typedef  struct  defnode  ( 


int  t  ype ; 

/* 

varr.aire,  vartype 

* 

nodal  nptr; 

/* 

otr  to  defining  node 

* 

fnode  *fptr; 

/* 

ptr  to  formats 

* 

struct  defnode  ‘link; 

/* 

Link  for  .1st 

* 

)  ‘defptr; 

/*************************** 

And  Definitions 

struct  a r. obstruct 

/* 

Structure  for  and  -ists 

* 

! nodal  ptr; 

/* 

Ptr  to  .nodal  containing 

var  ~  a~e 

int  buffptr; 

/  * 

Ptr  to  buffer  wr.ere 

/* 

r.arre  is  ca  1  lea 

• 

struct  and  struct  ‘link; 

/  * 

Link  for  1 .nsec  . ist 

• 

/ 
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/a*******************************************************************! 

*  PUBLIC  DOMAIN  SOFTWARE 

* 

*  Name 

*  File 

*  Authors 

*  Started 

*  Archived 

*  Modified 

*'**•*■***★**■*★★*********★**★***★****★★**★**★******★★**★★*******■*******•*< 

*  This  file  is  the  header  file  for  the  user  interface  module 

*  (user.c) 

***★**★*★*★★■**★★★*★****★*★★**★*★*★**★★********************★★*****★***1 

*  Modified 

**■**★*****★**★*★*★*★**★*★★***★*★★*****★***★*********★★★***********★•*1 


User  Header 
user . h 

Maj  E.J.  COLE  /  Capt  J.E.  CONNELL 

04/01/87 

04/10/87 


************* 


r  ******  1 


♦define  BUFFLENGTH  30 

♦define  NOTFOUND  0 
♦define  BSIZE  1000 
♦define  BLOCKSIZE  50 

♦define  BACKSPACE  8 
♦define  EOLN  13 
♦define  ESCAPE  27 


/*  Max  size  of  input  f : -e  ra-e  - 
/*  directory 

/*  Input  ouffer  size 
/ *  Input  b  1  c  c  «  size 

/’  ASCII  Eau i vi lent s 


/•  Messages  to  coserver 


♦define  GETPROGRAM  "Program  to  Compile  ->  " 

♦define  HEADER1  "ROCK  COMPILER” 

♦define  HEADER2  "Press  Escape  Key  to  Exit  Compiler" 

♦define  FILE1_ERR0R  "File  not  Found" 

♦define  FILE2_ERROR  "Press  ESCAPE  to  exit,  any  otter  <ey  to  ::r: .'.e" 
♦define  WAIT  "Compiling:  Please  Wait" 

♦define  PAUSE  "PRESS  ANY  KEY  TO  CONTINUE" 


♦  oefir.e  ERRCRFILE  "error s . phi " 


W> 


IAA.> •> A Ax'KVjSS VxVl>VA'  A‘->  - 1 


APPENDIX  F 

ROCK  COMPILER  —  MAIN  MODULE 


/********★***•***************★*★**★*★*  i 

*  PUBLIC  DOMAIN  SOFTWARE 


r****************************** 


*  Name 

*  File 

*  Authors 

*  Started 

*  Archived 
’  Modified 


Main  Rock  Module 
Rock_main . c 

Maj  E.J.  COLE  /  Capt  J.E.  CONNELL 

01/06/87 

04/10/87 

04/13/87  Output  files  put  to  vdisk 


*****************1 


r************************************************** 


*  This  file  contains  the  following  modules  for  the  PHI  compiler: 


R  Initial 


Semcheck 


Algorithm  :  * 

This  contains  the  main  procedure  for  the  phi  compiler,  in  add-  * 
ition  to  the  initialization  procedure  &  the  main  semantic  checking  * 
procedure.  The  main  module  inits  the  program,  sets  up  the  screen  * 
by  calling  "user  ()",  &  decides  whether  an  error  routine  needs  * 

to  be  called.  It  also  closes  out  the  input  file.  * 

The  "semcheck  procedure  is  designed  to  be  called  by  any  function  * 
with  a  ptr  to  a  parse  tree  node  as  an  argument.  It  will  then  * 

determine  which  sub-module  is  necessary  to  check  the  node.  * 

"R_Initiai"  presently  has  the  function  of  initializing  the  type  * 
table.  * 

* 

♦♦a******************************************************************* 

Modified  :  C4/13/87  Output  files  written  to  vdisk,  "d:"  EC  * 

•  •*«*********«*******************************************************/ 


****************************  Externals  ******************************/ 


>ercr.ec<  .  r.> 


.13  c  5*.ar*. -  ?  { )  , 


5“'.  caqe  i  i  , 

- t  v  :^rscr  f  ' 


■' *  Close  cut  fer  coae  generate: 
Iser  interface 

*  error  writing  interface 

*  Close  source  f.le 

'  *  C targe  video  a; splay  pace 

*  Vo  ve  cursor  to  see:,  f  ieu  local 


unsigned  .suck  =  STACKSIZE, 


Globa  Is  ****************************< 
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»«lf»H11.WWII»UWWUIWilWiWU»lBWWWWIWUWBPl—^ 


/**************************  R_initial  »**»••***»*** . 

void 

r_initial  ()  a- .  re  s»-j 

(extern  tnode  types  [); 

strcpy  (types  [ UNTYPED ]. name,  "untyped");  •  5er  _p  type  • j: 

types  (UNTYPED) .bytes  =  NULL; 

strcpy  (types  [BOOLEAN) .name,  "boolean”); 

types  [BOOLEAN! .bytes  =  BOL_BYT£S; 

strcpy  (types  [REAL). name,  "real”); 

types  (REAL). bytes  =»  REAL_3YTES; 

strcpy  (types  ( INTEGER) .name,  "integer"); 

types  [INTEGER) .bytes  =  INT_3YTES; 

strcpy  (types  [NATURAL! . name,  "natural”); 

types  [NATURAL) .bytes  -  NAT_BYTES; 


/*************************  semCheclcer  ********•«»•**•*•.* 

PHITYPE 

semcheck  (ptr)  /*  3reaxs  £e~  T-er 

nodal  ptr; 

(extern  PHITYPE  tkindef  (),  trtarrow  (), 

tfunid  0,  tid  (),  tconstant  (),  tactualiist  (),  tactual*  i); 
PHITYPE  type; 


switch 

case 

case 

case 

case 

case 

case 

case 

case 

case 

case 

case 

case 

case 

case 

case 

case 

case 

case 

case 

case 

case 

case 


(ptr->name)  f 
(ADDJ  : 

(SUB_)  : 

(MULTJ 
(RDIVJ 
(IDIVJ 
(COLON_)  : 

(CAT_J  :  type  =  arithop  (ptr); 
break; 

(POSJ  : 

(NEG_)  :  type  =  tprimary  (ptr) 
break; 

type  =  tor  (ptr)  ; 


:  type  =  tand  (ptr); 

:  type  =  tnegation  (ptr) ; 
tkindef  (ptr); 


(ORLOG_) 
break; 

(ANDLOGJ 
break; 

(NEGLOG_) 
break; 

(KINOEF) 
break; 

(RTARROW_)  :  type  =  trtarrow  (ptr); 
break ; 

(LETDEF)  :  tletdef  (ptr); 
break; 

(KW_  +  WH£RE_)  :  type  =  twhere  (ptr); 
break ; 

(AUXAND)  :  tauxand  (ptr); 
break; 

(DATAAUXDEF)  :  tdatauxdef  (ptr) ; 
break; 

(FUNAUXDEF)  :  type  =  tfunauxdef  (ptr)  ; 
break; 

(FUNID)  :  type  *  tfunid  (ptr); 
break ; 


(ACTUALLIST)  ;  type  =  tactuais  (ptr)  ; 
break; 

(COMMA  )  : 
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APPENDIX  G 

ROCK  COMPILER  —  SCANNER 


Scanner  Utilites 


/ 


.  r  m  . :  -i  *  '  <e- 
-  1  ■  •  *  <  *?  '  : 

•  'herns  no  see  if  the  input  token  13  a  keyword  in  the  language. 

•  :f  it  is,  the  function  returns  the  numeric  value  cf  the  keyword. 

*  : f  i'  isn't,  the  function  returns  -1.  Performs  binary  search  of 

*  neywrd  array  - 

•  M'.'ST  KEEP  THIS  ARRAY  IN  ALPHABETICAL  TRUER  '  ' 


APPENDIX  H 

ROCK  COMPILER  —  PARSER 


/*********«*****»*******«»***»**********«******»*****»***»*****»««•«•*• 

*  PUBLIC  DOMAIN  SOFTWARE 

*  Name  :  parser  pt  I 

*  File  :  parserl.c 

*  Authors  :  Maj  E.J.  COLE  /  Capt  J.E.  CONNELL 

*  Started  :  10/20/86 

*  Archived  :  12/11/86 

*  Modified  :  04/23/87  No  longer  set  up  to  work  with  file  of  tokens. 

*«*************★***********************************************«***+*•* 

*  This  file  contains  the  following  modules  for  the  PHI  parser: 

* 

*  BlockBodyO  LetDefsO  DefsO  DefAndO  QualExpO 

*  AuxExpO  AuxDefsO  AuxAndO  FormalsO  Expression  () 


*  Algorithm  :  The  main  module  calls  BlockBodyO  to  start  the  parse 

*  off.  BlockBody  in  turn  calls  LetDefsO  first  and  then 

*  QualExpO  looking  for  a  valid  program.  The  remaining 

*  modules  in  Pt’s  1-3  are  called  by  these  when  trying  to 

*  validate  a  pargram.  The  results  from  the  parse  are  new 

*  kept  in  an  abstract  syntax  tree  for  type  checking  and 

*  cone  generation.  Various  utility  functions  are  used 

*  to  build  the  tree  and  simplify  parsing  the  gramner . 

*********************************************************************** 

*  Modified  12/26/86  Flattened  tree  output  changed  to  abstract 

*  syntax  tree  form.  UC 

*  01/10/87  Corrections  to  comply  with  latest  definitions 

*  of  the  language.  JC 

*  01/27/87  Error  Recovery  added  and  files  combined.  J 7 

*  03/20/87  Token  buffer  implemented  for  parser.  JC 

*  03/29/87  Changed  manner  errors  are  handled  -  required 

*  for  integration  with  back-end. 

*  04/23/87  No  longer  set  up  to  work  with  file  of  t;<er.s 

*  GetToken  is  cabled  directly  thru  FiilBuffo.  JC 


.  .le  *  ltd:  a .  t.  > 

. i*  <pa r s*r . t > 


•  } .  t  b  a  .  '.jjs  i  i  n 


'brnet  •  "ALSE.  ardb;-d  *  -AJSE; 


Je*  e :  - 
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'jy  ini  vr  yn*  it*  n*i»¥m 


cr.ec <  for  .Tore  defs 


/*  any  errors  nave  deer,  notes 
i  *  so  press  or. 

/*  end  Oefs 


r  IT************************-****************-#**/ 


/*  root  is  a  per  to  t ree/ suot  ree 
/*  currently  working  wit r. 


<DEFAND>  ::=  and  <DEFS>  */ 

Where  "  and  <DEFS>  "  need  not  be  present.  */ 

Note:  This  function  assumes  root  is  not  NULL  upon  entry  *, 


•.:iss  'ii  •  an~_i  > 

.  r  ret ,  1EF ANT 


/*  found  "ana"  so  fix  tree 


•  >:s  s  *  r  to:  i  -  >rpt  r 1  '•  TATE) 

:  :  :  .  :  a  ■  o  .  e  r  I  . :  r  e  _  n  o ,  E  ?  3  _  h , 
,:rji A EX ;  ) ; 


iE XI  ) ;  /'  note  it,  try  to  fix 

/*  end  3ypass  AND 
/*  end  DefAnd 


/*  roof  is  a  ptr  to  tree/ suet ree 
;  /*  currently  working  with 

<QUALEXP>  ::=  <EXPRESSION>  where  <AUX£XP> 

Where  "where  <AUXEXP>"  need  not  be  present. 


scar,  f  (  "%*cM  )  ; 


*  3  :  *  ■  xrress  .or  (recti  )  =  =  ERROR  __) 
r  -  *W  - NO  '  ; 

'  ns  “a  •  a H E  ? £  m 

'  .root#  (KW_*WKERE_)  ,  RIGHT)  . 
»  *  r  :,ct  -  ->  1  pt  r  )  >  ; 


:  .3  .exr  ex.  tea  % d \ n '* ,  f  1  a g  •  ; 


/*  errors  aireaay  reported, 

/*  attempt  to  press  on 
/*  looking  for  wr.ere  express: 
/  *  found  one, fix  tree 
/ *  need  AuxExp  following  WHE.: 
/*  end  bypass  WHERE 


*  ae : a  u  ^  t  -  >  s  t  return  : . j  : 
'*  era  Q.a^exoO 


>#*********»***********★*******★#**★*★*★******★*******»*’ 


'  c  u  r  re  n"  .  y  were-;  w  . :  • 


<  AVXEXP >  ::=  <AUXDEFS>  (where  <AUXEXP>)* 
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■- ( < (flag  -  AuxDefs (root) ) !=  TRUE) ) 
ErrorHandler (line_no, ERR_i, 

(long) KW_+WHERE_) ; 

.  f ! 3y?ass (KW_*  WHERE_) ) 

Make.NewRoot (root, (KW_  +  WH£RE_) , RIGHT) ; 
AuxExp ( 4 ( <*root) ->lptr) ) ; 


return (flag) ; 


/’  need  at  least  or.e  AL'Xl 
/*  note,  try  4  fix 


/*  locking  for  -jltipie  WHERE'S 
/*  found  one, fix  tree 
/*  need  AuxExp  following  WHERE 
/*  end  ByPass (WHERE) 


/*  default  -  return  result  of 
/*  first  AuxDefs 

i  *************  *  enc*  *UX^XP 


.xlef s ( root ) 

No oeRec  "root; 


/*  root  is  a  ptr  to  tree/subtree 
/*  currently  working  with 


<AUXDEFS>  ::=  <<DATAAUAXDEF>  |  <FUNAUXDEF>)  <AUXAND> 
Where  "<AUXAND>  "  need  not  be  present. 


•temp; 
f  1  ag  ; 


ctr  -  3yPass ( IDENTIFIER^) ) ) 

-.erp  >  CreateNode  ( IDENTIFIER^  ; 
a-p  ->;fae*  «  ptr; 

■  ByPass i EQU1V_) ) 

•root  -  CreateNode (DATAAUXDEF)  ; 

*  r not i ->lpcr  »  temp; 

. f  Expression (4 ( (‘root) ->rptr) ) !»  TRUE) 
r  r  or  Handier  (  iine_no,  ERR_c, 

< long) KW_+WHERE  ) ; 

•-  o-  *  r  reat eNode ( FUNAUXDEF ) ; 

. 1  -'.ptr  -  CreateNode (FUNID) ; 

"  '*  ->.ptr->lptr  »  temp; 

?  --a.s  i4 ('root I ->  ipt.  r->rpt  r) 

TRUE! i 

r -ang.er ( line_no, ERR  e, 
i.or.giECUIV  >; 


-e  -o.ERR 


/*  address  of  data  struct  holding 
/*  identifier  name 


/*  set  up  its  side  of  subtree 


'  looking  for  ID  — 

'  found  1  —  •  It's  a  DATAAUXDEE 
attach  temp  ptr  to  root 
now  need  Exp 
noteit,  try  4  fix 

end  ByPass  EQUIV 

not  '=='  so  must  oe  ID  FORMA 13 

will  look  for  ID  FORMALS 
attach  ID  to  FUNID 
need  the  FORMALS 

note,  try  to  fix 

looking  for  already 

created  FUNAUXDEF  - 
r.eea  QualExp  on  rt 
note  t.-.e  errors,  try  4  f;x 


*  -  3  e.  se 


4  s  ~  e  *?  z 


i  i  in ' i  r;ni  v.  .  -  *  r  f  Kr*:..  .  -•  -/r 


^  3  - » -  <  -  ,  - 


.■i/nss 


.5, -x cross..-  i  • - 


j.e:  .  .  - e 


•  *  -  •  -  • 


Irrcr H a ra-er'.. re  f , 

(  -  c  r.  q  »  K  W  •  *  H  :.  ?  : 


?=- 0  CHECK ; 


•  *::<»  4  .  x  2<? ' 


ret  jrr.  (  f  laq)  , 


•  fs-ra  S'-e'-.'j  s.  •m'-j  • 

•  tr.ecx  !:r  '  ;:<*  3e?  1 


AuxAr.di (root ) ; 


return  (TSTJEl  ; 


ary  errors  rave  cee- 


/ #  so  cress  or. 


/*  er.d  Ajx^efs 


r****************************1lr*********»***#*#***iir*i 


A-xAr.d  (root ) 

NoaeRec  **root; 


/*  root  is  a  ptr  tree  s.c  :■ 
/  *  currently  wcr  <  :r.g  w .  t  n 


/*  <AUXAND>  and  <AUXDEFS> 

/*  where  "and  <AUXDEFS>"  need  not  be  present. 

/*  Note:  This  function  assumes  root  is  not  NULL  upon  entry 


if ( 3y?ass (KW_*AND_) I 
i  XakeNewRoct < root, AUXAND, LEFT) ; 

i f  (  ( AuxDef s ( S ( 'root ) ->rpt r )  !=  TRUE) I 

Error Handler (line_no, ERR_h, 

( long)*KW_+WHERE_)  ; 


/*  found  ’’and”  so  f:x  tree 


/'  note  it,  try  s  fix 


/*  end  Bypass  AND 
/*  end  AuxAnd 


r*********  , 


Forna.s  i  root) 

NoceRec  ••root; 


/*  root  is  a  ptr  to  tree/suotree 
/*  currently  working  with 


<FORMALS>  ::=  <ID>  |  ’ ( •  <FORMALS>  ') 


NooeRec  *temp,  'work ingroot ; 


/*  temp  ptrs  to  nodes  in  tree 
/*  worki.ngptr  marches  down  the 
/*  rt  side  of  the  suotree 


.  ;  n.g  on  r  ; 


:f  ((ctr  *  3y?ass ( IDENTIFIER^) ) I 
•root  *  CreateNode ( IDENTIFIER  i ; 
(•root)  ->index  =  ptr; 
r  eh „ r  n (TRUE i ; 


/*  checking  for  ;ust  ar 


VW/.W/lv:.  •  ' 


II' 


*  4  ■  s  i*  -WA 


’  ^ 


j  *  *  '  A  W  f  ' 


-?’•••’  ■  #'  r  «  .  -  j  r 


ly  ?  as  5  •  ‘•iT ?  A  PEN 


.  *  0  r  ';r.*  »  • 


'ee  ¥.r<- r  c  r ■ 


!•. r  r  -  r  H a r. a . e r  (  ,;r.e  r.o(:3?  ; ,  N  J L L >  ; 
re' - r  r ( EPPC?  » ; 


.  -r  r.  i  FAE3E)  ; 


:  *  -  VA 


(,Y4iS  **yf» 


'  ••  r  PMA  ..'j 
:  or*  pact  *  -  e  ■  :ee 


eri  c  f  :o-pac''  .  .r 
era  of  rc-pact  -  :** 


era  :  f  P??A?£S 
~  ;  $  s  .  r  q  '  )  '  after 


era  .  f  3y?ass  1 ! PAPES 
ae  f  a  -  - 1  -  rare  of  tre  ac- 
era  Fcrr.a .  s  n 


Z*****************************************************,^ 


Excress. cr ( root) 

NoaeRec  **root; 


/*  root  is  a  ptr  to  tree  s-r 
/  *  currently  wcr<  .  r.g  w;:r. 


<EXPRESSION>  <CONJUNCTION>  (  \/  <EXPRESSION>) * 


if  (((flag  -  Con  junction  (root)  )  *=  TRUE)) 
i £ ( 3yPass (ORLOGJ ) 

{  MakeNewRoot ( root , ORLOG  , LEFT) ; 


/*  look  for  Conjunction 
/■  will  recursively  cn.ecu  for 
/*  found,  so  fix  root  for  ret: 


if ( (Expression (4 ( ('root) ->rptr) ) ’*TRUE) )  /*  /\  w/o  following  Exp. 


'  Er rorHandier ( line_no, ERR8 , 
( long)  ORLOG_)  ; 
return (ERROR  ) ; 


/*  Just  note  it,  no  fix 


/*  end  recursive  search 


return ( flag) ; 


/*  end  Expression)) 


PUBLIC  DOMAIN  SOFTWARE 


Name 

parser  pt  2 

File 

parser2  .  c 

Aut hors 

Ma;  E.J.  CCLE  /  Capt  J.E.  CONNELL 

5- arced 

10/20/86 

Archived 

12/11/86 

Mod if  led 

01/27/87  -  Error  Recovery  added.  JC 

This  file  contains  the  following  modules  for  the  PHI  parser: 

C~r.  junction  ( )  Negationo  Relation!)  Relator!) 

SimpiExp!)  AddOp ( )  MullOP!)  Term!) 

Factor!)  Primary!)  Application!)  Actual!) 


Algorithm  :  See  parser  part  1 


Modified  :  12/26/86  Flattened  tree  output  changed  to  abstract 

syntax  tree  form.  JC 

:  01/10/87  Corrections  to  comply  with  latest  definitions 

of  the  language.  JC 

:  01/27/87  Error  Recovery  added  and  files  combined.  JC 

A****************************************************** 


»  . .-  c.ne  <  stdio . h  > 
i.i:.,3e  <parser..n> 

extern  _nt  _ine_.no; 

extern  irt  rtbrket; 

/»»*«**»******»********•»< 


/*  globa.  var,  n.c.cs  current  __r.e  ■ 
/*  r.o  of  source  prog 
/*  global  flag  -  aids  ir.  raking 
/*  ?HI  deterministic 

r****»**************i»r*************w**/ 


r. :  ur.ct  ion  (  root 
NodeRec  **: 


*  *roct ; 

<CONJUNCTION>  ::= 


/  *  root  is  a  ptr  to  tree/s ubt: 
/*  currently  working  wit". 

<NEGATIQN>  (  /\  <CONJlJNCTION>)  * 


if  ((flag  -  Negat ion ( root ) )  --  TRUE) 
if  < ByPass (ANDLOGJ ) 

•  HakeNewRoot  !  root ,  ANDL0G__,  LEFT)  ; 
if (Con  junction (S ( (*root) ->rptr) ) 

•  Er  r  orHa.ndler  1 1  ine_no,  ERR8, 

( long) ANDLOG_) ;/* 
return (ERROR  ) ; 


/*  look  for  Negation  part 
/*  will  recursively  check  for 
/  *  found,  fix  root  for  return 
/*  /\  w/o  f cl -owing  Neg . 

/  *  lust  note  it,  no  fix 


/*  end  recursive  search 


return ( flag) ; 


/*  end  Conjunction!) 


ist 

Negat  ion (root ) 

NcdeRec  "root; 


/*  root  is  a  ptr  to  tree/subt: 
/  *  currently  working  with 
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neuat :  ,n 


■  st  :.at  :  _•  u 


■  *r<j-  eN  Iff  \ 


<'  PELAT  ION  >  'SIMPLEX?'  <  *"  PE  LATOP  "SI  Mp  LEXt 

Where  <  RELATORx  S  IMPLEXP  >  neel  net  he  present 

'  .  aq.  •  /re;  *  '  /p<?  • 

■  .  “p  .  r.xp  I  .'.J'!  '  -  •  '  s  f 

x  a  -  e  a  :  '  : 

f  '  JV.r  i  -» 

A  r  .  •  )  t  : 

■  ■  ■  "  '  *  •*  'Af  '•  <  ' 

'  .  .  »  -  4  •  i 

.  *  :ir?D:ra  44  :  3a  .  .  <  RTBkAKF.T  . 
ret  -rr  (  f  .  aq  i  ; 

e.se  .  f  (type  »  Re.aiu:  n  i 


yaneSewRoo-  I  r  qqt ,  t  ype,  ..EE  T  i  ; 

.  f  iS..~p.Exp  (4  i  (*roo'  i  -  »rpt  r  i  i  -  rpt'E i 
Lrr'r.Hard.er  i  .  .re  r.c,  l  H  K  t) , 
i  .  r.r.q  I  ype  i  ; 
ret  (ERROR  i  ; 


-  e  .  r  s  .  ve  .  y  •  e  «  * 

PELAT  :  TN ' s 
'  . :  d  '  e  ,  *  .  x  ■ 

R!.:a::p  *  ~ t  x; 

'  ■  e  . '  ,  '  .  x 


ret  „:r.  l ;  :  aq)  ; 


e  r  3  -  e  -  r 


er.d  Sr.  LA  TILS 


Re -at or  < 

/* 

/« 


<RELATOR>  -  |  <>  I  <  I  >  |  <-  I  >-  |  in  ,  net; 

Note;  returns  the  Relator  value  vice  TRUE  if  found 


f  -  aq  ; 

(  '.  f  -aq-ByPass  tEQl  )  ) 


e  1  se 

if  ( 

else 

;f  i 

e.se 

if  ( 

e.se 

;  f  ( 

e.se 

if  ( 

else 

if  ( 

else 

if  ( 

do  rot' 


■J 

I 

% 

S 

\ 

•y 
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.  r  AP  I : 
\  :e3e 


<  S I  HP  LEXP  > 


<TERM>  (  < AD LOP >< 3  IMP LEXP  * ) 


*  ■  r  .  a  q  -  .  e  r  +  i  :  •; *  1  i  *  ‘  r«  ‘  r.  < 

■  4  r  jc . -  a  4  4  !  3a .  .  k  TbkA/ii I  , . 
:  e '  :  r  i  *  .  *  $  i  ; 


. ? • r ype-AadC^ i j  » 
VaneNewRcct  (  r  -  at  ,  *  ype,  l.i 


.  !  i  S  *  "p  *  r.xp  <  4  (  <  •  roct  i  -  >  z  pt  r  i  <  *  *  IS'JEl 
r  r  r  r  H a r d  *  e r  (  .  .  ",e  t  o ,  £ ? R 8 , 
i  -  u  n  q  j  t  y  pe  /  ; 
r  et  jrr.  <  ERROR  /; 


.  n.  . 


<ee  .;  *  .  <  a  ’  ♦?  a  ! 

•  ,  t.  .is.r  .  .  , 

a.  ea  A :  q  3  . 

A  r  q  3  .  r  3  .  .  <  .  '  q  '  * 

<■  Op  >  ’  *  f . w  .  -  : 

rec^r  s.  ve. /  : * e  * 
SiypLtXr* s 

*  t  ^ra  AajCp,  i  -  r  . 
retort 

AadOp  w  / -j  S.^pF.xp. 
•'.ere  . t ,  to  f  .  x 


/*  eta  recursive  sea  r  rr 


-  e  r  -  r  t  •:  t  .  a  q )  ; 


r*************i 


r********fti 


/  •  eta  S  ; rr c  .  F. x p 

r«K*******»#*****1 


[**«**»»*< 


i  -  p  I » 


<ADDOP>  : 

+  1  -  1  :  1  * 

• 

Returns  the 

AddOp  value  vice  TRUE  if  found 

* 

f  -ag; 

:  :  t  lag*3y?as  s  ( ADD_)  )  ) 
e.se  : ' ( (f.ag-ByPass (SUB_|  )  1 

e.se  i  f ( ( f iag*ByPass (COLON^)  ) 

e.se  . i { ( * .ag-ByPass ICAT_)  I  ) 

;  /  *  do  nothing 

ret  .rr.  ( f  lag)  ; 

/  *  return  resu.t  of  search. 

• 

/ **********************1 


X.-Ccll 


<MULOP>  ::=  *  I  /  I  %  (idiv) 

Returns  the  MulOp  value  vice  TRUE  if  found 


*/ 

*/ 


■  -  aq  ; 


*f  (  (ilag*3ypass (MULT_)  I  ) 
else  1  f  (  (  f  lag=ByPass ( RD I V  ) ) ) 
e.se  i f (( i Lag-ByPass ( ID IV_> ) ) 


/ *  do  nothing 
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3 


>, 

V( 

y( 

9 


a 


V  VI  *  tf,V>VA  VMK'.VAVJi 


TERM> 


«  FACTOR  •  i  *  MVL'.P  >*’?EP.M'»  I 


*  ;  4  :  70  ;  ~  fl  44  1  4  a  .  .  ■  4  !  !•»  * A  »•’ : 

•e*.  aq»; 

>  .  se  .  #  .  *  y  pe  -  V  „  .  'Jp  .  » 


va*eNewRoo*  <  r  •*  ;:*  ,  *  y p«? .  .  Y:  r  • 

.  ?  ;  ?e  r •*  i  4  «  i  *r:ot  1  -  > r p*  :  * 

E:  r  or  Hard  .«  r  <  .  .  •  «»  -  ••,-aR«3, 


1  %  s  r  . 


I  m3  ‘  '  *»  A  •  ;  ^  1 


’  o  /  i  .  VP  .  , 

r  ft  7Y  *4y  1  s 


'  -  -l  *  - . :  p .  s  •  .  x  • 


.  'vj  ■  *  yt«*  >  ; 


re*. -rr  <  ERROR  ■; 


er  1  rec^r  s.ve  s**a: 


re*.  . r  ~ 1 ? . aq ) 


(*rd  :«?r- 


a ot  or  f  root. ) 
VjaeRec 


.  y  w o : *  .  r. 4 


<FACTOR> 


;  +  I  - ) <PRIMARY> 


•■ecK  f  or 


.f  (status  -  By Pas s ( ADO_ i l 
•root  ■  CreateNode ( POS_) ; 
e.se  if  (status  -  ByPass (SUB  )) 
•root  -  CreateNcde (NEC  t; 


if  (Priraryltl  (  ‘root )  ->rptr )  l  ' -TRUEi 
Er rorHandler ( 1 ine_no, ERRS , 

(long) status) ; 
return (ERROR  ); 


/  •  found  or  1  -  1 

/•  UulCp  w/o  fo..owi: 
*  note  it,  no  fix 


e.se  return (TRUE) ; 
else  return (P r unary ( root \ ) ; 


e.se  return.  (P  r  invary  ( root  \  )  ;  '•  default,  ot.ecx  ft 

/*  end  FACTOR 

/**#******************************************************i 


?  r  irary ( root ) 

NodeRec  **root; 


/*  root  is  a  ptr  to  t ree/suet reo 
/*  currently  worx.ng  witr. 


<PRIMARY> 


<APPLICATION>  (!<PRIMARY>) 


.43; 


89 


•riot  •  CreateNode ( IDENTIFIER  > ; 

(•root)  -> index  -  ptr; 

if  (By?  Sss  l  LINERTARROW_)  ) 

MakeNewRoot (root . LINERTARROW  _, LEFT) ; 
. f ( Act ua  .  ( t  (  (  •  root  )  ->  rpt  r (  l  »*  TR'-'E) 
ret -re ( TREE /  ; 

e.se 

•  ErrorHandler  1 1  i  n  e  _  r.  o ,  ERR8, 

(  lor.ql  LINERTARROWJ  ; 
return  ERROR  I; 


return  (TRUEI  ; 


(  3y?ass (KW_  •  FILE) ) 

•root  -  CreateNode  ( KW_  *  FILE_) ; 
if  ((ptr  -  Bypass ( LITERAL_) ) ) 

>.  temp  *  CreateNode l L1TERAL_) ; 
temp  ->  index  *  ptr; 

(•root)  ->rptr  «  temp; 
return (TREE) ; 

else 

•  ErrorHandler  (iine_no,  ERR_i,  NULL)  , 
return (ERROR  ); 


/*  now  loox  for  10  ->  A "TEA: 

/•  Note :  "ID  ->  ACTUAL"  .s  a 

/•  <cenctat:on> 

/•  fo-nd  one  so  f.x  tree 
/•  .00*  for  tra:.  ACTUAL 

/*  note  it,  no  f.x 


/•  e.od  eise  not  Actual  (i 
/•  end  i f  LINERTARROW 

/•  end  if  10 

/•  found  Keyword  FILE 

/*  attach  following  LITERAL 


/•  er.d  if  LITERAL_ 
/•  note  it,  no  fix 


/*  end  if  FILE 


((flag  =  Condit ional ( root )  )  '=  FALSE) 

return ( flag) ; 

((flag  -  Block ( root ) )  :=  FALSE) 
return ( flag) ; 


if  ((flag  »  Compound (root) )  »=  TRUE) 
if ( ! ByPass ( LINERTARROW_) I  return (TRUE) 
else 

•  temp  *  'root; 

if  (  ! IsFormal (temp) ) 

ErrorHandler ( line_no,  ERR_o,  NULL)  ; 

( 'root) ->name  •  FORMAL; 

MakeNewRoot (root, LINERTARROW_, LEFT) ; 
if  (Actual (i (( 'root ) ->rptr) )  -=  TRUE) 
return (TRUE) ; 
else 

*  ErrorHandler ( line_no,  ERR8 , 

(long) LINERTARROW_) ; 
return ( ERROR_) ; 
i 

else  if (flag  *»  ERROR_) 
return (ERROR  >; 
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/•  Phi  is  nondetermin.istic  must 
/*  first  check  for  compounds  then 
/*  if  i ->  follows  must  see  .f  the 
/*  compound  was  actually  a  fsr-a.; 
/*  list  NOTE:  Order  may  NOT  ce 
/♦  changed ! ! 


/•  had  now  need  to  see  if 

/•  had  Formals 

/*  set  var  to  be  passed  oy  value 
/*  to  IsFormais 

/*  just  report  it  and  press  on 


/*  found  one  so  fix  tree 
/•  look  for  trail  ACTUAL 


/*  note  it,  no  fix 


/*  end  else  ByPass  LINERTARROW 


. . 

* 

*  Name 

*  File 

*  Authors 

*  Started 

*  Archived 

*  Modified 


PUBLIC  DOMAIN  SOFTWARE 

parser  pt  3 
parser3 . c 

Maj  E.J.  COLE  Capt  U.E.  CONNELL 

10/2C/66 

12/11/86 

01/27/67  -  Error  Recovery  added.  UC 


*  This  file  contains  the  following  modules  for  the  PHI 

*  Conditional!)  Arm!)  Block!) 

*  Elements!)  Denotation!)  ArgBind!) 

*  TypeExp ( )  TypeDom!)  TypeTermt) 

*  TypePrimary!)  PrimTypeO 


parser  : 

Comp  c  ur.  d  i  1 
Op  ( ) 

TypeFa c  (  ) 


*  Algorithm  :  See  parser  part  1 


*  Modified  :  12/26/86  Flattened  tree  output  changed  to  abstract 

*  syntax  tree  form.  JC 

*  :  01/10/87  Corrections  to  comply  with  latest  definitions 

*  of  the  language.  JC 

*  :  01/27/87  Error  Recovery  added  and  files  combined.  JC 

*********************************************************************** 


•include  <  s  t  d  ;  c .  r.  > 


•  ♦.r.c.uae  <parser.ri> 

extern  ir.c  rcbrxet; 

/  * 

q coa. 

flag  -  aids  , r 

• 

/  • 

rax ; nq 

PHI  determir . st . r 

• 

extern  m t  . me_n o; 

/  » 

q loDal 

var,  current  . .re 

• 

/  • 

r.unper 

of  program 

* 

/********************«********#*****#******#**********************«•«** 


-or.dit i  or.a  *  {  root )  /  *  root  is  a  pc  r  to  t  tee  s-ct  ree  • 

N'caeRec  **rcot;  /*  currently  worxi-q  w:tr.  * 

/*  <CONDITIONAL>  if  <ARM>  (elsif<ARM>) *  (else<EXPRESSION) 1  endif  */ 


/*  pt  rs  to  temp  nodes  ::.e  ■  roe  * 

NodeHec  'temp  -  NULL,  'subroot,  'workingptr; 

if !3yPass <KW_  *  IF)) 

if (Ar-(Stemp)  •>  TRUE) 

ErrorKa.ndier  ( line_no,  ERSm,  ( long)  IF_)  ;  /'  note  it,  try  to  f.x 

'root  -  CreateNode ( KW  ♦  IF_)  ;  /'  set  up  root  for  return 

i 'root)  ->lptr  -  temp;  /'  attach  THEN  exp  to  root 

workingptr  *  'root;  /'  move  working  pt r  • 


w.-.iie (Bypass  (KW_  *■  ELSIFJ  i 

subroot  »  CreateNode (KW_  *  ELSIE  )  ; 

workingptr  ->rptr  «  subroot;  /*  attach  ELSIE  to  tree 

i f (Arm ( ttemp)  ’»  TRUE) 

ErrorHandier ! line_no, ERR_m,  /'  .note  it, try  S  t.x 

< long) ELSI F_)  ; 

s_tro.ot  ->iptr  -  temp;  /'  attach  THEN  exp  to  ELSIE 

wor<ir.gptr  *  workingptr  ->rptr;  /*  move  wrki.nq  pt  r  down  sictrec 

/*  end  while  ELS IE 

i  f  (Bypass  ( KW_  »  ELSE _)  ) 
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'ea'  «*N  ip  *  * 


■  r  .  :  ~  4  ^  -j  .  p 


‘  :  .  :  s 


*e  r  e  a  rea^r 


~3  *  S'"  ‘  *  ,.ef  i " 


•  rcct  :s  a  p".  r  :  •'  rep  i.r':* 


\:ae?ec  ••root; 


•  c  u  r  r  e  r.  t .  y  wcr<.*a  w .  *  r 


<ARM>  ::-  <EXPRESS ION>then<EXPR£SS ION> 


ScdePec  *teTp  *  N’JLL; 


/*  rerp  c-  to  d  -coe  . - 


I  If.aq  -  Expression  I  4terpi  i  • »  TSVEt 
EatEmlKW  ‘THEN  >  ; 


"  *  if  an  error  :ry  recover  ry 
*  .co*  for  THEN, ELSE, Eli : r, i V : 


if  ;3y?ass(KVI_  *  THEN_)  ' 

•roof  -  CreateNoae ( KW_  •  ?HEN_>  ; 
(•roof)  ->  iotr  *  tenp; 
if  (  Express  ion  ( 4teT.pl  *»  TRCEI 
(•root)  ->  rptr  -  temp; 


report  :f  ana  try  to  press  -n 


ErrorHandler  ( lir.e_no,  ERR_t, 
( Tong) THEN_) ; 


/ •  end  begin  of  THEN 

/•  report  it  ar.g  try  to  press  on 


Error.Ha.ndier  (  iir.e_no,  ERR_f , 

(long) KW_»THEN_) ; 

ret . rn ( f  Tag) ; 


'•  end  A tt ( ) 


/*»*»**********»****»******************«**************************»***•/• 


Hi.; os  i  root) 

NooeRec  **roct; 


/•  root  os  a  ptr  to  free  s.ctree 
/•  currently  wcrsing  witr. 


<BLOCK>  begin  <BLOCKBODY>  end 


.f  (3y?ass(KW_  *  3EGIN_| ) 

•root  «  CreateNode ( KW  *  3EGTN  ); 


'*  sets  root  for  return  errors 


.f  ( BlocxBody ( 4 ( ( ‘root ) -> ipt r ) I  ' «  TRUE) 


•  have  already  seen  reportea 
/•  Took  for  310CK3CTY 


jr  .  •  .  •  ,  ».•«•«•••••••  «• 

V  V  V.  /  V  /  v 


•  ■  ■  ■  *  .*  v’  V  N  ">•  -  ■  •  . 


:mf:vnc>  ■  < •  <  elements  >  ■  i  '  •  •  •  <  element s>  1  •  '  •  <  •  <  element; 

•  where  c ELEMENTS >  may  fce  empty  * 


*  1  ,  '  S  S  S  '  '  A  -  ;  S 


.  .  .  r<  ‘  ' :  e  .  e  ■  •  ‘  s  re  i.se 


>v-  ass  ? "ARE  N 

a  "  3 .  e :  .  .  -  e  ■  - .  ERR  ‘  . 

.  --3  ■  -  7? AREN 


*  e :  r  :  n  s  reprr'eo  -  a  . -  a . : x  z 

•  .  t  ,  -  n  ‘ 


:  --  St”.:.' 

•  -  "reateN~ae  EVP 7Y??y?CVNZ 

■ .  se  .  ‘  *  r  not  '  -  »  n  are  liYV.A 


•  'cu  :-ec<  empty  cn-u  .-os 

*  compounds  w.  “  „  . t .p le  e.e-ents 


-a-e  - 


re-..."  1  7RCE  ’ 


era  .  f  LTPARENl 


.  f  :  By  Pa  s  s  1  ETSQYISJ  > 

:  . e-e  r t  s  .root' ; 

.  f  1  '  Byrass  |RTSCCI3_>  i 

£ r  rsr Handler  (  1  ine_r.o,  ERB_f, 

( .  ong)  RTSQC  IC_)  ; 


•  on.y  _ook  ter  'em, 

*  errors  reported  via  ;.a.£xc 


note  it,  no  f.x 


.  f  :  •  root  ”  SC  EL) 

•root  =  CreateNode (EMPTYCOKPOCND) 
e.se  :  f  (  ( *  root  I ->name  --  COMMA_) 

(  *  root  1  ->name  •  ELEIST; 
return  (TREE)  ; 


/•  check  for  empty  ccmpc.nos  a~o  ■ 
/*  compounds  w/  m.ultlc.e  e.emerts  ' 


/*  end  if  tTSCtrt) 


.  f  :  Bypass ( ST_SEQCENCE_) ) 

Elements ( root )  ; 

if ( 1 3yPass ( EN0_3EQUENCE_) ) 

Error  Ha  r.dler(iine_nc,ERR_f, 

< iong) ENS  SEQUENCE  1 ; 


/  *  ).n iy  look  for  ’em, 

/*  errors  reported  via  Qua. Exp 


/*  note  it  i  no  fix 


1 f ( *root  «»  NULL) 

•root  *  CreateNode ( EMPTYSEQUENCE) ; 
e . se  MakeNewRoot ( root , SEQUENCE, RIGHT) ; 
ret.rn (TRUE) ; 


/*  now  check  for  empty  sequences 
/*  sequences  w/  muitip.e  e.emen.ts 


/*  end  3ypass  ST  SEQCENC 


return.  (EAE3E)  ;  /•  none  of  the  above 

/*  end  Compound!) 

/*****************************************************************«***« 


11.25  |^4  |L6 


< 

HHCROCOPT  RESOLUTION  TEST  CMAR1 
flftllQHAl  BURtMJ  0»  STANDARDS  2?**  * 


/*  <ARGBINDING>  *  ['  <<OPXQUALEXP>  I  <QUALEXPXOP>  I  <0P>)  '  ]  ’ 


specia.case; 


SodeRec  *temp  •  NULL; 

/  • 

temp  ptr  to  node  m  tree 

extern  i  n.t  arqbmd; 

/  • 

giobai  flag  neeaeo  to  -a<e 

/  • 

PH T  deterministic 

-  ' 

. f i 3yPass ( LTBRAKET) > 

/  • 

set  giobai  f.ag.  .needed  to 

*  / 

argbird  -  TRUE; 

/• 

PHI  deterministic. 

*/ 

specia-case  *  ( IBai 1 (ADD, I (  :Baii(SUB_, 1 

) )  ; 

•„ fdef  DEBUG 

print  f  (“special  case  *  Id  arqbmd  *  »d\.n”,  specials 

ase 

.  arqbmd)  ; 

•e-d:  f 

if  ( Cp ( root i ) 

/• 

begin  Op  comes  first 

*/ 

■  .  f  ( ByPass < RTBRAKET^) ) 

/• 

iookinq  for  .Cp; 

'  / 

argbind  «  FALSE; 

/• 

reset  giobai  fiag 

*  . 

Ma'xeNewRoot  (root,  ARGBI NOOP ,  LEFT)  ; 

return  (TR'JEI  ; 

/• 

had  (  <Cp>  ; 

•/ 

) 

/• 

end  if  Bypass  RTBRAKET 

*  y 

MakeNewRoot ( root , ARGLEADOP , LEFT) ; 

/* 

don’t  have  just  an  Cp 

*/ 

if  < IBali (AOB_, 1)  I Bail (SUB, 1 ) ) 

/* 

might  be  */-  ♦/-  QuaiExp 

*/ 

specialcase  -  FALSE; 

/• 

and  don’t  want  to  accept 

»/ 

/• 

♦/-  ♦/-  QuaiExp  Op  later  on 

*  / 

if ( (CuaiExp(4 ( ‘root ) ->rptr( ) --TRUE) 

/• 

two  cases  where  QuaiExp  could 

*/ 

; 

/• 

be  TRUE  -  <OpxQua  1  Exp> 

*  > 

if (Bypass (RT3RAKET_) ) 

/• 

or  *  i  -<QuaiExpxOp> 

*/ 

<  arqbmd  -  FALSE;  return  (TRUE)  ;  ) 

/• 

reset  giobai  fiag 

*  / 

else 

/* 

could  De  ♦/-  PRIMARY 

*  / 

if  (specialcase  14  Op(ltemp) 

44  ByPass (RTBRAKET_) ) 

■  ( (‘root) ->iptr) ->rptr-(»root) ->rptr 

; 

(•root)  ->rptr  -  temp; 

/* 

now  fix  the  tree 

* 

(  (  (“root) ->iptrl ->name  -•  AD0_)  ? 

(  (  (  'root  1 ->iptr) ->name»PCS_)  : 

( ( (‘root) ->iptr)  ->name  -  NEG_) ; 

(*root)->  name  -  ARGTRAILCP; 

/• 

<Cp>  cane  last  as  a 

*  ;■ 

arqbmd  -  FALSE; 

/• 

reset  gi.obalflag 

*  / 

return (TRUE) ; 

;> 

/* 

end  else  specialcase  44  Cp ( ) 

•  / 

/• 

44  RTBRAKET_ 

*  / 

/* 

end  2  cases  where  Qua.Exp  TRUE 

arqbmd  -  FALSE; 

/* 

reset  globaifiag 

*  / 

ErrorHandler(iine_no,ERR  q, NULL) ; 

/* 

report  it,  no  fix 

*  / 

return.  (ERROR_)  ; 

/• 

end  Op  comes  first 

if  ( (QuaiExp(root) )  !-  FALSE) 

/* 

found  somemir.g 

*  ' 

MaxeNewRoot (root, ARGTRAILOP,  LEFT)  ; 

arqbind  -  FALSE; 

/’ 

reset  giobai  flag  4 

*  , 

if (Op (4 ( 'root) ->rptr) 

44  8yPass (RTBRAKET) ) 

/• 

see  if  can  continue 

return (TRUE) ; 

ErrorHandler  ( 1  ine_r.o,  ERR_q,  NULL)  ; 

/• 

report  it,  no  fix 

return (ERROR_) ; 

/♦ 

end  if  Qua. Exp  cones  first 

*  ' 

/• 

end  if  ByPass  LT3RAKET 

ret,”  (FALSE)  ; 

/* 

default,  none  of  the  above 

■  /*  end  ArgBindingO 


96 


Op ( root) 

NodeRec  "root; 


/*  root  is  a  ptr  to  tree/suotree 
/*  currently  working  with 


<RELATOR>  I  <ADDOP>  I  <MULOP> 


if (flag  =  ByPass (COMMA) ) 

•root  =  CreateNode (COMMA_) ; 

else  if (flag  =  ByPass (SUBSCRIPT^ ) 

'root  »  CreateNode (SU8SCRIPT_) ; 

else  if (flag  =  Relator ()) 

•root  *  CreateNode ( flag) ; 

else  if (flag  -  AddOp ( ) ) 

'root  *  CreateNode ( flag) ; 

else  if (flag  *  MulOp(l) 

'root  =  CreateNode (flag) ; 

return ( flag) ; 

!  /'  end  Op  */ 

/***************************»**************************************»***/ 


TypeExp(root) 

NodeRec  "root; 


/*  root  is  a  ptr  to  tree/s^btree  '/ 
/*  currently  working  with  */ 


<TYPEEXP>  : :«  <TYPEDOM>  (  ->  <TYPEEXP>  )* 


NodeRec  'newroot; 
i.nt  flag; 


/’  temp  ptr  to  nodes  in  the  free 


if ((flag  *  TypeOom(root) )  =*  TRUE) 
if  (ByPass (RTARROWJ )  /■ 

(  newroot  *  CreateNode (RTARROW_) ;  /’ 

•newroot  ->lptr  -  'root;  / ’ 

'root  ~  newroot; 

if  (TypeExpU  (  ('root) ->rptr)  )  !-  TRUE) 

t  ErrorHandler ( line_no, ERR 9, ( long) RTARROW_) ; 
return (ERROR  ); 


/*  will  recursively  search  for 
/*  more  TYPEEXP's 
/*  fix  root  for  return 


>  /*  end  recursive  search  * / 

return (flag) ; 

!*  /'end  TypeExp 


TypeOom ( root ) 

NodeRec  "root; 


/*  root  is  a  ptr  to  iree'suctree 
/'  currently  working  with. 


<TYPEDOM>  ::=  <TYPETERM> (+  <TYPEDOM>) * 


NoaeRec  'newroot; 
in.t  flag; 


/'  temp  ptr  to  nodes  in  the  tree 


if ((flag  «  TypeTerm ( root ) )  ==  TRUE) 
if  (ByPass (ADO_) ) 

•  newroot  »  CreateNode (TYPEPLUS)  ; 
newroot  ->iptr  =  'root; 


/'  will  recursively  search  for 
/'  more  TYPEDOM1 s 
/*  fix  root  for  return 


.  .1  •  sir 


i 


I 

i 

i 


•root  =  newroot; 

if  (TypeDomU  (  (»root)  ->rptr)  )  !  =»  TRUE) 

f  ErrorHandler <line_no, ERR9,  ( long) ADD_) ; 
return (ERROR  ); 


) 


/*  end  recursive  search 


*/ 


return (flag) ; 

>  /•  end  TypeDomO  */ 


i.nt 

Typeler.Ti  (root ) 

NodeRec  "root; 


/*  root  is  a  ptr  to  tree/suotree  */ 
/•  currently  working  with  */ 


/*  <TYPETERM> 

{ 

NodeRec  '.newroot; 
i.nt  flag; 


<TYPEFAC> ( ' * '  <TYPETERM> ) *  * / 

/*  temp  ptr  to  nodes  in  the  tree  */ 


if ((flag  »  TypeFac(root) )  »«  TRUE) 
if  (ByPass (MULT_) ) 

(  newroot  •  CreateNode (TYPETIMES) ; 
newroot  ->lptr  -  'root; 

•root  -  newroot; 

if (TypeTerm ( t ( ( 'root ) ->rpt r) )  1  -  TRUE) 

(  ErrorHa.ndler  ( line_no,  ERR9, 

(long) MULT J ; 
return (ERROR  ) ; 

) 

) 


/•  will  recursively  search  for  •/ 
/•  more  TYPETERMS’s  •/ 
/•  fix  root  for  return  */ 


/*  end  recursive  search 


return ( flag) ; 


■  /*  end  TypeTermO  •/ 


int 

TypeFac (root)  /•  root  is  a  ptr  to  tree/suotree  •/ 

NodeRec  "root;  /•  currently  working  with 


/*  <TYPEFAC>  <TYPEPRIMARY>@  I  <TYPEPRIMARY>  I  */ 

/*  <ID>  '«'  <TYPEEXP>  (,<TYPEEXP>) *  '»'  <ACTUAL>  */ 

/*  Where  «TYPEEXP  (,  TYPEEXP,  .  .  . ) »  and/or  <ACTUAL>  */ 

/*  need  not  be  present  */ 

i 

NodeRec  'newroot;  /•  temp  ptr  to  nodes  in  the  tree  •/ 

int  flag; 

long  ptr; 


if (ptr  -  ByPass ( IDENTIFIER_) ) 

(  'root  *  CreateNode ( IDENTIFIER^  ; 
(•root)  -> index  =*  ptr; 


if (ByPass (ST_SEQUENCE_)  SS  ByPass (ST_SEQUENCE_) ) 

■  ErrorHandler (line_no, ERR_r ,  NULL)  ; 
return (ERROR_) ; 

■  /*  end  bypass  << 
goto  CHECK; 

;  / *  end  if  ID 

if ((flag  •  TypePrimary (root ) )  ==  TRUE) 
goto  CHECK; 

return ( flag) ;  /*  return  either  ERROR  cr  FALSE 
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L. 


CHECK:  if (ByPass (STARJ ) 

{  newroot  -  CreateNode (STAR_| ; 
newroot  ->lptr  -  (*root) ; 
*rooc  -  newroot; 

i 

return (TRUE)  ; 


/*  end  if  STAR 


/*  made  it  this  far,  aii  OK  * 

>  /*  end  TypeFacO  *' 


1 

TypePrimary ( root ) 
NodeRec  "root; 


/*  root  is  a  ptr  to  tree /subtree  */ 
/*  currently  working  with  */ 


<TYPEPRIMARY>  : <PRIMTYPE>  |  '(’  <TYPEEXP>  ')' 

NOTE:  ID  already  checked  in  TYPEFACO 


if (Bypass (LTPARENJ ) 

(  i  f  (TypeExp  (  root )  TRUE) 

Error Handler ( line_no,  ERR 9, 

(long) LTPARENJ ; 


/*  note  it,  no  fix 


if  (ByPass (RTPAREN_)  ) 
return (TRUE) ; 
else 

i  ErrorHandier ( line_no, ERR_f , 

( long)  RTPARENJ  ; 
return (ERROR  ); 


if (PrimType (root) ) 
return (TRUE) ; 


return (FALSE) ; 


/*  end  ByPass  ' ( ' 


/*  default 

/*  er.d  TypePrimary  () 


mt 

PrimType (root) 

NodeRec  "root; 


/*  root  is  a  ptr  to  tree/suctree 
/*  currently  working  w;t n 


/*  <PRIMTYPE>  : :**  real  I  integer  I  natural  I  boolean  |  trivial  I  type  */ 


if (ByPass ( REAL_) ) 

(  ‘root  =  CreateNode (REAL_) 
return (TRUE) ; 


if (3yPass (INTEGER_) ) 

;  ‘root  «  CreateNode ( INTEGERJ 
return (TRUE) ; 


if  (3yPass  (NATURAL_)  ) 

■  'root  -  CreateNode (NATURAL  ) 


return (TRUE) ; 


if (ByPass (BOOLEAN_) ) 

(  'root  *  CreateNode (BOOLEAN  ), 


/*  er.d  if  REAL 


/*  end  if  INTEGER 


/*  end  if  NATURAL 
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v’  v  V  “ 


return (TRUE) ; 


/*  end  if  BOOLEAN 


> 

if (ByPass (TRIVIALJ ) 

(  'root  •  CreateNode (TRIVIAL_) ; 
return (TRUE) ; 

/*  end  if  TRIVIAL 

if (Bypass (KW_  *  TYPE_) ) 

(  'root  -  CreateNode (KW_  *  TYPE_) ; 
return (TRUE) ; 

)  /•  end  if  TYPE 

return (FALSE) ;  /*  default  -  none  of  me  aocve 

/*  end  PrimTypeO 


*  PUBLIC  DOMAIN  SOFTWARE 

*  Name  :  Parser  Utilities 

*  File  :  parsr_util.o 

*  Authors  :  Maj  E.J.  COLE  /  Capt  J.E.  CONNELL 

*  Started  :  01/26/87 

*  Archived  :  03/03/87 

*  Modified  :  04/23/87  FillBufferO  now  calls  GetTokenO  direct. 

*********************************-*****-***********-*****************#***1 

*  This  file  contains  the  utility  modules  for  the  parser: 

*  CreateNodeO  MakeNewRoot 0  ByPass  () 

*  FillBuf f { )  IsFormal ( )  iBall  ( ) 

*  NodeNameO  EnterNameO  FindNameO 

* 

*******************************************************************************1 

*  Modified  :  03/20/87  -  Buffer  Handling  routines  added  -  JC 

*  04/23/87  -  FillBuferO  calls  GetTokenO  direct  vice 

*  working  with  intermediate  file  of  tokens. 

*  EnterNameO  and  FindNameO  added  to  place 

*  IDs,  LITERALS,  and  CONSTANTS  into  the  name 

*  table.  JC 

* 

•  •it*****************************************************************  **i 


«i. -.elude  <stdio.h> 
♦include  <parser.h> 

extern  int  li.ne_.no; 

extern  FILE  *pir.file; 


cn.ar  t  oxen  MAXLINE  ’  »"x"  ; 

Na.-eRec  *n amenable  TA3LESIZE*  1 '  , 
•EnterName ( i ; 


/*  global  var,  holds  line  no 
/‘of  source  prog 
/*  global  working  file 

/*  Ir.it  token ;0,  to  va..e  otter 
/*  than  NULL.  Token.;;;  holes  *.*•? 
/*  length  of  the  string. 

/*  add  1  oecause  ;o;  .s  .sao.e 


S**********************************************************************/ 

/*  UTILITIES  */ 


IreateNode (op) 
NodeType  op; 


/*  operator  type  of  n.ooe 


/*  Creates  a  tree  node  and  returns  the  pointer  (temp)  to  this  node.  */ 
/*  Accepts  node  type  (op),  an  integer,  and  inserts  it  into  the  node.  */ 

Noae.Rec  'temp; 

temp  *  CALLOC 1 1 , NodeRec) ;  /*  create  a  node 

temp  ->  name  *  op; 
temp  ->  In  -  lir.e_no; 

temp  ->  Iptr  »  (temp  ->  rptr)  -  NULL; 
return,  (temp)  ; 

/*  end  CreateNodell 

/a*********************************************************************  ' 


yaxeSewRoot (root, type, sidel 
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NodeRec  "root; 


/*  old  root  of  subtree  - 
/'  will  turn  into  new  root 

int  type,  side;  /*  (type)  is  type  of  new  root 

/*  (side)  is  side  to  att  eld  roo 

/*  Creates  a  new  working  root  for  subtree.  */ 

/*  Old  root  is  attached  to  lt/rt  based  on  value  of  (side)  */ 

I 

NodeRec  'newroot; 

newroot  *  CreateNode (type) ; 

(side  LEFT)  ? 

(newroot  ->lptr  -  "root)  :  (newroot  ->rptr  «  'root); 

'root  -  newroot; 

v  /'  end  MakeNewRcct  '/ 

/*•*****»*****************************************»*********»****»******/ 


void 

r illBuf f (start) 

long  'start;  /*  which  slot  in  the  buffer  '/ 

/'  array  to  start  the  filling  '/ 

/*  Requires  the  buffer  array  and  buffer  ptr  to  be  previously  defined.  */ 
/*  Fills  the  buffer  with  tokens  by  calling  GetTokenO.  Buffer  filled  */ 
/*  until  1)  end  of  user  prog  reached  or  2)  end  of  the  array  reached  */ 
/*  If  the  token  is  a  literal,  id,  or  constant  then  EnterNameO  is  */ 

/»  called  to  enter  it  into  the  nametable.  */ 

/*  Lastly,  resets  the  buffer  ptr  to  tokenbuff [0] .  */ 

extern  long  tokenbuff (1,  'ptr; 

int  token_num;  /'  identifies  a  token  type  '/ 

NareRec  *nptr;  /'  ptr  to  structure  of  NaneRec 


ptr  -  start;  /*  intit  ptr  to  travel  thru  buff 

do 

•  token_num  «  GetToken  (token)  ; 

'ptr  •  token_num; 

--ptr; 

switch  (token_num) 
l  case  LITERAL_  : 
case  CONSTANT_ 
case  :DENTIFIER_  : 
f  token(0I  »  strlen (token) ; 
if  ( (nptr-EnterName (token) ) ) 

■  'ptr  *  (long)nptr; 

♦ -ptr; 

) 

else  ErrorHandler  (NULL,  ERR"),  NULL)  ; 
break; 

) 

default : 

•  whii.e  (  (token_num  '  -  EOF)  44 

(ptr  <  4 1 okenbu f  f ( BUFS I ZE  II); 

ptr  -  it oxenbuf f  ; 0 ; ;  /•  reset  the  buffer  ptr  • 

/•  end  FillBuff ()  " 

/***********•***»**************»***»*****»******»**********************/ 


/*  insert  length  of  sting  •/ 

/*  address  of  token 


/• 

handle  memory  overflow 

* 

/  * 

end  case 

a 

/  * 

do  nothing 

a 

/  * 

end  switch 

a 
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long 

ByPass  (tgt) 
int  tgt; 

/*  Checks  to  see  if  the  next  token  in  the  buffer  matches  the  target. 
/*  If  so,  then  returns  the  token  no.  and  increments  the  buffer 
/*  pointer 


extern 


xong 


tokenbuf ; 


•ptr; 


if  (ptr  >=  Stokenbuff  [BUFSIZEi  ) 
Fill Buff <s tokenbuf f [0] )  ; 

while (*ptr  ==*  EOLN_) 
i  + +pt  r ; 

**line_no; 

if  (ptr  ==  stokenbuff [BUFSIZEI ) 
FillBuf f (Stokenbuff (0) ) ; 


if  l*ptr  ! =  tgt) 
return (FALSE) ; 

**ptr; 

if  (ptr  =■*  Stokenbuff  (BUFSIZEI ) 
FillBuf f (Stokenbuff [01); 


/*  see  if  at  end  of  buffer 
/*  refill  buffer 


/*  increment  counter  s  skip 

/*  see  if  at  end  of  buff 
/*  refill  buffer 
/*  end  while 


/*  otherwise,  it  was  found 

/*  if  at  end  of  buffer 
/*  refill  buffer 


f 

't* 

ia 1 

(jJ 

•>f 

»jj 


switch  (tgt) 

(  case  LITERAL_ 
case  IDENTIFIER^ 
case  CONSTANT_ 

return ( * (ptr**) ) ; 

default : 

return (tgt) ; 


/*  return  ptr  to  struct 
/*  holding  the  token 

/*  just  return  true 


;  /*  end  swithch 

•  /*  end  ByPassO 


V 

**/ 


(sFormai ( root ) 

NodeRec  'root; 


/*  root  is  ptr  to  subtree 
/*  currently  working  with 


/*  Required  to  make  the  language  deterministic.  Compound ()  returned 
/*  TRUE  and  was  subsquently  found.  Formal  is  a  proper  subset  of 

/*  the  compounds  so  need  to  insure  no  errors  in  the  f ormals . 

/*  Performs  a  preorder  search  of  the  subtree.  NOTE:  assumes  that  root 
/*  initially  points  to  a  non-null  compound  list. 


* i f de  f  DEBUG 

crir.tf  (  "isformal  entered,  root->name  =  %d\n”,  root->name) 
if  (root  =»  NULL)  printfC'root  is  .nullXn")  ; 

*er.ai  f 

if (root  NULL) 
return (TRUE) ; 

i f ( root ->name=«COMMA_  roct->name=«IDEN7IFIER_ 

'  i  root->name==ELLIST) 


*3 


*  / 

.*■, 

*/ 

*/ 

*  / 

-h 

*  / 

.■n 

*/ 
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if((IsFormal( rooc->lptr ) ) 

a  (IsFormal (root->rptr) ) ) 

return (TRUE) ; 


return (FALSE) ; 


}  /*  end  Isformai 


ir.t 


IBail (tgt, index) 

int  tgt,  index; 

/*  Checks  to  see  if  the  (index) th  token  in  the  buffer  matches  the  */ 
/*  target.  If  it  does  returns  TRUE  else  FALSE.  Does  not  increment  */ 
/*  the  buffer  pointer.  Checks  for  full  buffer  implemented  in  this  */ 

/*  manner  to  allow  for  future  flexibility.  Could  have  used  simple  */ 
/*  heuristic  of:  */ 

/*  if(ptr  +  (3*index)  >  fitokenbuf f [BUFSIZE] )  RefilBuffer;  */ 

/*  at  the  expense  of  generality  */ 


extern  long  tokenbuf f ' ] ,  *ptr; 

long  *tptr; 


if (ptr  >-  Stokenbuff [BUFSIZE! ) 

/* 

see  if  at  end  of  buff  if 

*/ 

FillBuf f (ttokenbuff [01 ) ; 

/* 

so,  refill  buffer 

*/ 

/* 

start  over  if  had  to  refill 

*/ 

DO_AGAIN: 

/* 

buffer  during  check  for  tgt 

*/ 

tptr  -  ptr; 

/* 

set  working  pointer 

*/ 

while(*tptr  --  EOLN_) 

(  ♦♦tptr; 

/* 

increment  tptr  t  skip  EOLNs 

*  / 

if (tptr  —  ttokenbuff [BUFSIZE] ) 

/* 

see  if  at  end  of  buff 

* ./ 

goto  REFIL; 

/* 

nedd  to  refill  buffer  ar.d 

*/ 

/* 

then  start  over 

*  - 

■ 

/♦ 

end  while 

*  / 

fort; index  >1;  — index) 

/* 

only  enter  for  loop  if  need  to 

*  / 

•'  switch  <*tptr) 

/* 

look  more  than  one  char  ahead 

*/ 

i  case  IDENTIFIER  : 

/* 

double  skip  because  next 

V 

case  CONSTANT  : 

/* 

entry  is  addr  of  element 

•  / 

case  LITERAL_:  tptr  **  2;  break; 

case  E0LN_: 

while (*tptr  --  EOLN_) 

i  *  +  tptr; 

/* 

increment  counter  £  skip 

*  ' 

if (ptr  --  ttokenbuff [BUFSIZE] ) 

goto  REFIL; 

/* 

refill  buffer  t  start  over 

*  / 

/* 

end  while 

•/ 

default:  ♦♦tptr; 

/* 

end  switch 

«  - 

ifltptr  >*  ttokenbuff [BUFSIZE] ) 

/* 

check  if  will  overflow  ouff 

*  ' 

goto  REFIL; 

• 

/  * 

end  for 

*  _■ 

if  Ctptr  !-  tgt)  return (FALSE) ; 

|  ei.se  return  (TRUE)  ; 

j  = 

/  ♦ 

take  what's  left  in  buffer. 

- 

! 

/* 

put  at  beginning,  now  ref-. 

- 

( 

/* 

rest  of  buffer 

*  - 

i  forftptr  *  stokenbuff (C 1 ; 

j  ptr  <  & toker.buf  f  [ BUFS IZE  j ;  ptr  +  +  ,tptr-*-*) 

|  *tptr  =  *ptr; 

/* 

refill  buffer  from  current 

* 

FillBuf  t ( tptr )  ; 

/♦ 

posit  tc  era 

* 
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L/VOs/S 


goto  DO_AGAIN; 


/*  ref  i  1  lea  buffer,  so  start 
/*  over 
/*  er.d  IBall  U 

fr******************^**^^^^ 


*  *  *  *  *  / 


char  * 

N'cdeName  (ptr) 

NodeRec  *ptr; 

/*  Accepts  a  ptr  to  a  structure  of  NodeRec.  Dereferences  this  node 
/  to  get  a  ptr  to  structure  of  NameRec  which  hold  the  string 

*  COI^aining  the  name  of  the  value  in  NodeRec.  Returns  the  name  to 
/  calling  routine 


*/ 
V 
*  / 
*/ 


Na-eRec  *temp; 

temp  =  (NameRec  *)  (ptr->index)  ; 
return (temp->name  *  l); 


/*  temp  ptr  to  aata  strut 
/*  holding  name  of  "■ocr" 


/****************»**  /*  end  N°deName ( ) 
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APPENDIX  I 

ROCK  COMPILER  —  ERROR  HANDLER 


/********* 

* 

*  Name 

*  File 

*  Authors 

*  Started 

*  Archived 

*  Modified 


*  This  file 


PUBLIC  DOMAIN  SOFTWARE 

Error  Handler 
errors . c 


Maj  E.J.  COLE  /  Capt  J.E.  CONNELL 

01/20/87 

04/07/87 


contains  the  execution  modules  for  error  recovery. 
ErrorHandler  ( )  ,  EatEmO 


*  Algorithm  :  ErrorHandler ( )  is  called  by  other  modules  in  the 

*  compiler.  It  insures  the  error  count  is  updated  and 

*  the*  error  is  written  to  the  error  file.  If  require 

*  ErrorHandler ( )  calls  EatEmO  to  gobble  tokens  to  get 

*  a  known  point  in  the  parse.  Used  during  error 

*  recovery.  After  MAXERRORS  number  of  errors  simply 

*  returns  to  calling  routine. 

*  NOTE  :  'errorfile'  must  have  been  initially  created  before 

*  ErrorHandler O  is  first  called  -  don’t  want  to  append 

*  to  last  times  errors'. 
*********************************************************************** 

*  Modified  : 


★  **■*******★★*****★*******★****★*****■★**★****★*******«**•***•**★****#»**#*  / 


# include 
# include 
♦include 
extern 


<stdic . h> 

<scanner .  f!> 

<errors . h> 

FILE  “errorfile; 


/*  wcrxir.a  file 


nun  errors 


0; 

( 


/ *  running  t  a  _  1  e  y  of  *  ero: 
, *  found  -  alcca.  van 
"  array  of  error  -ess  ages 


/* 

2 

»  / 

”  incomplete  •  i  —  >  , 

/  * 

1 

*/ 

"  RESERVED  FOR  FUTURE  USE", 

* 

2 

*/ 

" * \ \ 1  without  following  logical 

C3 

13  ’  *  " 

3 

m  / 

without  following  '  R ' ,  '  N ' ,  '  z  ' ,  ‘ 

o 

m 

r  • :  • " , 

,  * 

4 

*  t 

"invalid  numeric  constant  —  >  ", 

i  * 

5 

*  / 

"literal  without  ending  -  ", 

/  * 

6 

*/ 

"unidentified  char  in  input  program 

=  3  > 

” , 

/* 

7 

*  / 

"MEMORY  OVERFLOW  DURING  COMPILATION" 

, 

/  * 

8 

*  / 

"error  in  statement  fo. lowing  =  =  s  ", 

/* 

9 

*  / 

"error  in  type  definition  following 

M , 

/  * 

a 

*  / 

"unab.e  to  comp.ete  definition,  of  o„ 

oc<c 

cay  after 

/  * 

b 

»  f 

"missing  or  misplaced  after  aef. 

n  1 1 1 

or.", 

/  * 

c 

*  / 

"valla  qua.exp/exp  not  found  in.  the 

def  ' 

a.xse f " , 
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‘vCvlv;  -i'> 


u 


is>  vi#W  WIVNi  IV 


execl ( "rock . exe", "rock .exe", NULL) ; 

)  /*  end  if  no  more  rercry 

fprintf  (errorf  ile,  "line  %3d  :  ts  ", 

'  line_no, errors terr_no] ) ; 

switch  (err_no)  i 
case  ERR4 : 

case  ERR5:  fpri.ntf  (errorfiie,  "%s\n",  (char  *)  str_num)  ;  brea<; 
case  ERR6 :  f print f (error fi ie, "%. ls\n", ( char  *) str  num) ;  break; 


case  ERR8:  switch (str 

(  case  LEQ_  : 
case  NEQ_  : 
case  GEQ_  ; 
case  EQ_  : 
case  ADD_  : 
case  SUB_  : 
case  MULT_: 
case  IDIV_: 
case  RDIV_: 
case  SUBSCRIPT_: 
case  ORLOG_  : 
case  ANDLOG_: 
case  NEGLOG_; 
case  COLON_  : 
case  CAT_  : 
case  LINERTARROW_: 
case  (KW_rGREATER_)  : 
case  (KW_+IN_) 
case  (KW_*LESS_)  : 
case  (KW_-NOTIN_) : 
default : 

fprintf (errorfiie, 

i 

break; 


.num) 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 

fprintf 


(errorfiie, ’ 
(errorfiie,  ’ 
(errorfiie,  ’ 
(errorfiie,  ’ 
(errorfiie, * 
(errorfiie,  • 
(errorfiie,  • 
(errorfiie, * 
(errorfiie, 1 
(errorfiie,  ’ 
(errorfiie, ' 
(errorfiie, ' 
(errorfiie, ' 
(errorfiie, ' 
(errorfiie, ' 
(errorfiie, * 
(errorfiie, ' 
(errorfiie, ' 
(errorfiie,  ’ 
(errorfiie,  ’ 


<-\n")  ; 

break  ; 

<>\n”)  ; 

break  ; 

>-\n")  ; 

break; 

=  \r.")  ; 

break; 

+  \n")  ; 

break 

-  \  n  " )  ; 

break: 

*\n")  ; 

break; 

%\n">  ; 

break; 

/\n") ; 

break 

! \n")  ; 

break; 

\\/\n")  ; 

break; 

/  \  \  \  n  " )  ; 

break 

~\n")  ; 

break 

:\n") ; 

break 

*\n")  ; 

break; 

! ->\n")  ; 

break 

GREATERXn") 

break; 

IN\n")  ; 

break 

LESSXn" )  ; 

break: 

NOTINNn")  ; 

break ; 

"UNDEFINED  errorN.n")  ; 


end  switch  case  ERRS 


case  ERR9 ;  switch  ( st  r_.num) 

t  case  ADD_  :  fpr ir.t  f  (error f  ile ,  " «An ")  ; 

case  MULT_  :  fprintf (errorf ile, "*\n") ; 

case  RTARROW_:  fprintf  (errorf  ile,  "->\.n")  ; 

case  LTPAREN_:  fpri.nt  f  (errorf  ile,  "( \n")  ; 

default:  ; 

fprintf  (errorfiie, "UNDEFINED  error\n") ; 


break; 
break ; 
break; 
break; 


end  switch  case  ERR 9 


:ase  ERR_f :  switch ( str_num)  ( 
case  KW_»AND_: 
case  KW_+WHERE_: 

fprintf (errorfiie, "==\n") j 
break; 

case  RTPAREN_: 

fprintf (errorfiie, ")\n"l; 
str_num»NULL;  break; 
case  RTSQUIG_: 

fprintf (errorfiie, " ) \n") ; 
st r_num=NULL;  break; 
case  END_SEQUENCE_: 

fprintf (errorfiie, ">\n”) ; 
str  num*NULL;  break; 


/*  don't  want  to  go  to  Eater 


/*  don't  want  to  go  to  EatEr 


/*  don't  want  to  ao  to  EatEr 


LVW  </?.>  (*  ■}}!)• 


I 

I 


case  KW_*£ND_: 

fprintf  (errorfile,  "KEYWORD  END\.n">  ; 

str_num  ♦-  KW_;  brea<;  ,*  set  -p  fcr  ca.l  tcEatE- 

case  KW_rTHEN  : 

fprintf (errorfile,  "KEYWORD  THENXn") ; 
break; 

default : 

fprintf  (errorfile,  "L'NDEf  1NED  er ror \n" l  ; 

/  *  end  switcr.  case  ERR  f 

break ; 


se  ERR  switc.n  (str  n 

ur.  i 

case  :r_ 

fprintf 

(errorfile, 

"IFXr.'U  ; 

brea< 

case  EL3IF 

f  p  r  i  r.  t  f 

(errorfile. 

’*  £  IS  I F  \  r. " )  ; 

orea.< 

case  ELSE 

f  pr  i  r.t  f 

(errorfile. 

" ELSE\  r. " )  ; 

orea< 

case  THEN 

fpnr.t  f 

(errorfile, 

"THEN\r.*M  ; 

o:ea< 

case  BEGIN 

fprintf 

(errorfi.e. 

"BEGIN  \r'M  ; 

breax 

default  : 

fprintf 

(er  ror  f . _e , 

"UNDEFINED 

error  r. " 

>  /  •  end  switc.n  case  ERR 

str_nur"  -  -  KW  ; 
d  r  e  a  <  ; 

default:  f pr irt f ier r or f i .e. 


fc.oseierrorfi.ei  ; 

.  f  iierr  no  ■> *  ERR  a)  s  4 


ierr_no  <  ERR_aa>  44 
(str_r.'jsi  '  *  Noil)  ' 
EatEr  (  (  mt )  st  r  ; 


EatEr  [tgt> 

-  r.  t  -  g  t ; 

/*  Increments  token  buffer  pointer  until  tgt  token  is  found. 

/*  Use  in  error  recovery  to  reach  a  known  point  in  the  program. 

exter-  Icr.g  t oker.ouf  *  ’  1  »  "ptr; 
exter-  i  r.  t  ime_r.o; 

OEB'JG 

pri-.tf  "eacem  enterea,  cgt  =  ,  t  gt  ; 

*  e  r  3 1  f 

w- .ecp:r  •-  EGF_l 
switch  (tgt) 
case  EC IN  : 

•  - pt  r ;  c  c ;  c  r  e  a  < ; 

case  SEMI  : 

i  f  i  (  *pt  r  **5£y  I  \  n  *pc  r  t  »*#»  *  T 


/•  set  str_r.tr  tc  tc  ce  cassec 
/  *  t  c  EatEr ( ) 

•  era  s  w ;  t  c  r. 
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t 

t 


return; 

»»pt r ;  break; 


case  EQUTV_: 

<  case  EQUIV_ 
case  SEMI_ 
case  KW_»ANO 
case  KW_+LET 
default : 

)  break; 


switch  ( (int) *ptr) 


return; 

♦♦ptr; 


/’  end  switch  case  EQUIV 


case  KW_*WHERE_ 

!  case  KW_»WHERE 
case  KW_+AND_ 
case  KW_»LET_ 
case  SEMI_ 
default 
i  break; 


switch  ( (int) *ptr) 


return; 

’■•ptr; 

/*  end  switch  case  WHERE 


case  KW_^AND_ 

(  case  KW_-AND 
case  KW_*L£T 
case  SEMX_ 
default 
!  break; 


switch  (  (int)  *ptr) 


return; 

’••ptr; 

/*  end  switch  case  AND 


case  RTPAREN_ 
i  case  RTPAREN_  ; 
case  LTP AR£N_  ; 
case  COMMA_ 
case  EQUIV_  ; 
case  LINERTARROW_ : 
case  KW_.L£T_  : 
case  KW_»AND_  ; 
case  SEMI  ~  : 

default  : 

)  break; 


switch  ( ( int ) *pt  r) 


return; 

•*ptr; 

/*  end  switch  case  RTPAREN 


case  KW_»  ;r_ 
case  KW__*  ELSIF 
case  KW_*  ELSE_~ 
case  KW_-  THEN_ 

•  case  KW_*  ELSIE 
case  KW_»  ELSE_ 
case  KW_»  ENDIF 
case  KW_*  THEN_" 

•  *pt  r ;  break; 


switch ( (int) *ptr) 


return; 


/*  end  switch  case  THEN,  etc 


case  CCMMA_ 
case  COMMA_ 
case  LTPAREN_ 
case  RTPAREN_ 
case  LTSQL’IG_ 
case  RTSQUIG_ 
case  ST_SEQUENCE_ 
case  END_SEQL'ENCE 
case  SEMI_ 
case  KW_*iEI 
case  KW_*WHERE_ 
case  KW_-  AND_ 
default 


switch  ( ( int) *ptr ) 


return; 
* -pt  r ; 


110 


•/ 


*/ 


* 


I 


4 


VI 


y 

V 

\i 

V 
N 


9 

a 


break; 


/*  end  switch  case  COMMA 


case  KW_*END_ 
case  KVi_->-BEGIN_ 

•  case  KW_+END_ 
case  KW_+LET_ 
case  KW_*WHERE_ 
case  KW_+AND_ 
case  COMMA_ 
case  RTPAREN_ 
case  RTSQUIG_ 
case  END_SEQUENCE_ 
case  SEMI_ 
default 
)  break; 


switch  ( ! int ) *ot r ) 


return; 
♦  ■►ptr; 


/*  end  switch  case  BEGIS/EN- 


default  : 
return ; 


)  /*  end  swithch  »/ 

}  /*  end  while  *  ' 

}  /*  end  EatEm  0  * 


m bww 


APPENDIX  J 

ROCK  COMPILER  —  SEMANTIC  CHECKER 


*  PUBLIC  DOMAIN  SOFTWARE 


*  Name 

*  File 

*  Authors 

*  Started 

*  Archived 

*  Modified 


Semantic  Checker  Module  0 
SemO . c 

Maj  E.J.  COLE  /  Capt  J.E.  CONNELL 

02/01/87 

04/03/87 


************************************************************* 
*  This  file  contains  the  following  modules  for  the  PHI  parser:  * 


Hnumconvert 


Numconvert 


*  Algorithm  :  * 

*  This  module  contains  procedures  for  type  conversion.  If  the  * 

*  rt  child  of  a  node  may  be  converted  to  the  It  type  but  the  con-  * 

*  verse  is  not  true,  "Hnumconvert"  i3  called.  If  either  side  may  be  * 

*  converted,  "number convert"  is  called  * 

ft********************************************************************** 

*  Modified  :  * 

**********************************************************************  j 

/******************************  Externals  ****************************/ 

♦include  <semcheck . h> 

extern  void  terror  <); 

/**********************  hnumconvert  *************************»**»/ 

PHITYPE 

hnumconvert  (ltype,  rtype,  ptr)  /*  Type  conversions  for  the  * 

/*  right  side  of  the  tree  only 

PHITYPE  ltype,  rtype;  /*  Left  and  Right  types 

nodal  per;  /*  Ptr  to  the  root  working  with 

(extern  void  c_ztor  ();  /*  Generates  ccae  to  convert  * 

/*  integer/naturai  to  real 


if  ((ltype  »»  BOOLEAN!  44  (rtype  ==  BOOLEAN!) 
return  (BOOLEAN); 

switch  (ltype)  { 

case  (REAL)  :  switch  (rtype)  ( 


/*  No  type  conversion  r.eedeo 

/’  Predicate  actions  on  type 
/*  side  of  node 


case  (REAL)  :  return  (REAL) ; 
case  (INTEGER)  : 
case  (NATURAL)  : 
c_zcor  (); 
return  (REAL) ; 
default  : 


/'  Matching  types;  no  con.v  reg 


/*  Generate  code  for  conversion 


<r.  •'vr- 


terror  (ERR_aa,  ptr->in) , 
return  (REAL);  ) 


/*  No  appropriate  match;  error 
/*  Sen  real  so  semantic  cr.ecx  c 


case  (INTEGER)  :  switch  (rtype)  ( 
case  (INTEGER)  : 

case  (NATURAL)  :  return  (rtype); 
default  : 

terror  (ERR_cc,  ptr->ln) ; 
return  (INTEGER);  ! 

case  (NATURAL)  : 

if  (rtype  =-  NATURAL) 
return  (rtype); 
else  f 

terror  (ERR_bb,  ptr->ln) ; 
return  (NATURAL); 


/*  Matching  types,  no  cor.v  req 

/*  Can't  convert  from  rea.  to  _ 
/*  so  sar.abag  the  programmer 


/*  Only  one  match  poss  w/o  err: 


default  :  terror  ( ERR_aa,  ptr->ln); 
return  (NATURAL)  ; 


/********«***************  Numconvert  *****************»*****»*«*»/ 

PHITYPE 

numconvert  (ptr)  /*  Do  number  conversions  for 


nodal  ptr; 

(PHITYPE  Itype,  rtype; 
extern  PHITYPE  semcheck  <); 
extern  void  c_rtor  (); 

itype  -  semcheck  (ptr->lptr); 

if  (ptr~>rptr->name  »»  (KW_  -  ENDIF__)  ) 
return  (Itype); 
rtype  *  semcheck  (ptr->rptr) ; 


/*  Do  number  conversions  for 
/*  both  left  and  right  side 

/*  Left  and  right  child  types 


/*  Get  left  type 

/•  Special  case  of  "if"  sequent 

/ *  Get  right  type 


if  ((Itype  =-  BOOLEAN)  ti  (rtype  »*  BOOLEAN) )  /*  No  conversion  necessary 

return  (BOOLEAN); 


switch  (itype)  { 

case  (REAL)  ;  switch  (rtype)  ! 
case  (REAL)  :  return  (REAL); 
case  (INTEGER)  : 
case  (NATURAL)  : 
c_ztor  l); 
return  (REAL); 
default  : 

terror  (ERR_aa,  ptr->rptr->ln) ; 
return  (REAL) ; 

\ 

case  (NATURAL)  :  switch  (rtype)  • 
case  (REAL)  ; 
c_ztor  ( ) ; 
return  (REAL); 
case  (INTEGER)  : 

return  (INTEGER); 
case  (NATURAL)  : 

return  (NATURAL); 
oefault  : 

terror  (ERR_aa,  ptr->rptr->ln) ; 
return  (NATURAL) ; 


t*  Predicate  act;cr.s  or. 

/*  Types  are  same;  no  act. 

/*  Generate  code  for  m t 
/*  to  real  conversion 

/•No  convert  son  pc ss.c.e 


on  ve rt  .eft  s  .  se 


•  No  conversion  recessary 
/ *  No  conversion  necessary 
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) 


case  (INTEGER)  :  switch  (rtype) 
case  (REAL)  : 
c_ztor  (); 
return  (REAL) ; 
case  (INTEGER)  : 
case  (NATURAL)  : 

return  (INTEGER); 
default  : 

terror  (£RR_aa,  pt  r->rpt  r->ir. )  ; 
return  (NATURAL); 

I 

default  : 

terror  (£RR_aa,  ptr->lptr->in) ; 
return  (NATURAL); 


/*  Convert  left  side 


/*  No  conversion  necessary 


/*  Types  are  not  r.ner.c 


i 


/**********»***************************»***********«»****«.**».«„»„,«, 
*  PUBLIC  DOMAIN  SOFTWARE 


*  Name  :  Semcheck  Module  1  * 

*  File  :  Seml.c  * 

*  Authors  :  Maj  E.J.  COLE  /  Capt  J.E.  CONNELL  * 

*  Started  :  01/02/87 

*  Archived  :  01/10/87  * 

*  Modified  :  * 

*********************************************************************** 

*  This  file  contains  the  following  modules  for  the  PHI  parser:  * 


Tletdef 

Twhere 

Tandcheck 


Trtarrow 

Tdataauxdef 

Tauxand 


Tkindef 

Tauxand 

Ttypetimes 


*  Algorithm  :  * 

*  This  module  contains  scoping  procedures  (Twhere  and  Tauxand)  * 

*  definition  procedures  (trtarrow,  tkindef,  ttypetimes)  and  the  data  * 

*  definition  procedure.  * 

*  * 
*********************************************************************** 

*  Modified  :  * 

ft********************************************************************.', 

/•********•***••*••***•**••*«««  Externals  *******»********»*•*»*******/ 

♦  include  <semcheck . h> 

•  include  <strir.g.h>  /*  Toe  "strepy"  * 


extern  inn  typeptr; 
extern,  mode  types  ;;; 
extern  void  terror  (>; 


/*  Typetabie  and  pointer 


inode  *fhead  -  NULL; 

/*••**••*•******•***«•*•••  Tletdef  «*****************************/ 


tletdef  (ptr) 
nodal  ptr; 


/*  cn.ecxs  types  of  bom  orancr.es 


semcrecK  lptr->lptr); 
semcheck  ( pt r->rpt r I ; 


y*************************  Trtarrow  ***************************** y 

phityps 

trtarrow  {ptr)  Returns  type 

ncaa.  ptr; 

■ PHITYPE  Itype,  rtype; 
extern,  void  put  form  (); 


-type  -  semcheck  (ptr->iptrl ; 
rtype  »  semcheck  (ptr->rptr); 

if  (  ’  <ptr->lptr->name  - -  TYPETIHES) 
(  pt  r->  lot  r->r.ame  «»  TYPEPLL'S)  ) 
put  for*  ( Itype)  ; 


_hecx  .eft  s  _  oe  type 
fhecx  right  side  type 


/*  Only  if  lefm.ode  rot 


return  (rtype); 
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/********•****************  Tkindef  ********************«******.../ 

void 

tkind.eS  (ptr)  /*  Adds  variable  name  to  defstac* 

nodal  ptr; 

(extern  defptr  defhead; 
extern  void  putdef  o; 

PHITYPE  rtype; 


rtype  -  semcheck  (ptr->rptr)  ; 
putdef  (rtype,  ptr->lptr)  ; 
defhead->fptr  -  fhead; 
fhead  *  NULL; 


/*  Put  definition  in  defstack  v 
/'  Append  formal  types  to  entry  •/ 
/*  Kill  fhead  */ 


/***.*»**.**************»*  Twhere  *******************************/ 

PHITYPE 

twhere  (ptr)  /«  Semcheck  where  node 

nodal  ptr; 

(PHITYPE  type; 


semchecker  (ptr->lptr) ; 
type  -  semchecker  (ptr->rptr) 
return  (type); 


/*  Check  leftside 
/*  Check  right  side 


/******«*****«***********  TDatauxdef  ****************************/ 

void 


tdatauxdef  (ptr) 
nodal  ptr; 

(extern  void  c_store_code  (),  c_jmp  (); 
extern  PHITYPE  getdtype  (); 
extern  defptr  finddef  (); 
extern  char  'name  (); 
defptr  d_ptr; 

char  'holder  =  malloc  (8), 

'nme  -  malloc  (8) ; 

PHITYPE  rtype, 
type, 

count  =  C; 

nme  =  strcpy  (nme,  name  ()); 
c_;mp  (nme) ; 

holder  «  strcpy  (holder,  named); 

c_start_proc  (holder); 

rtype  >  semcheck  (ptr->rptr); 

if  (ptr->iptr->name  —  IDENTIFIER)  ( 

if ( : (d_ptr-f inddef (ptr-> Iptr-> index) ) )  ( 
ptr->lptr->type  -  rtype; 
putvar  (rtype,  ptr->*ptr); 

) 

e,se  if  (d_ptr->fptr  *  -  NULL)  • 

ptr->lptr->type  -  getdtype  (d_ptr); 
type  -  hnumconvert  (pt r->lpt r->type, 
rtype,  ptr); 

putvar  (type,  ptr->iptr); 


terror  (ERR_dd,  pt r->ipr r->.r i ; 


/*  WORKS  FOR  ONE  FORMALS  ONLY 


/'  Temp  holder  for  function  name 

/*  Type  of  left  and  right  nodes 
/*  Type  of  datadef 


/*  Calculate  function  name 
/'  Gen  code  for  starting  prcc 
/*  Get  type  of  right  ptr 

/'  Open  can.  of  worms  to  typecheck 
/ '  if  (.eft  is  icen.t  . 

/*  No  prev  dec.  of  this  variac-e 


/*  Prev  dec!  of  var  ,s  data  oef 

Convert  rt  type  if  feasic.e 

/*  Prev  dec!  of  var  is  another  var 
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I  W'V'  JVJW*  r\F  r\*  rtf  -v*  ^ 


while  (‘(holder  *  count)  !=  NULL)  i 

(ctr->Iptr->label  icount;)  =  (‘(holder 
*■  -count;  ! 


/*  Push  piano  through  the 
/*  to  copy  strings 
count) )  ; 


c_store_coae  ("ret\n"); 
c_store_code  (nme) ; 

c  store  code  t”:\n"); 


/*  Generate  code  to  end  proceoure 
/*  CANNOT  03c  C_END  PRCC  (/  HERE; 
/‘NO  SCOPE  change: 


'*  And  Checlt  *' 


void 

an.d_ch.eck  (mark,  ptr,  rnark_and) 
varptr  mark; 
and_ptr  ’m.ark_and,  ptr; 
•extern,  varptr  varhead; 
extern  int  buff_ptr; 
extern  char  *code_buffer; 
int  buf f_hoider; 
varptr  v_ptr  *  varhead; 


/*  Check  ar.d_lisr  for  var  aefs 
/*  Scope  delimiter 


if  (ptr  !*  NULL)  < 

a.nd_check  (mark,  ptr->ii.nk,  mark_ana) ; 


if  ( v_pt r->npt r-> in.de x==pt r->pt r->index) 
buff_holder  =  buff_ptr; 

Ouf f_pcr  *  ptr->buf fptr; 


/*  Ptr  =  NOLI  is  base  for  recurs 
/*  of  and_check 

/*  Coop  to  evaluate  all  proper 
/•  varptr  entries 
/*  Check  if  equal  names  m 
/*  and_list  &  var_list 
/•  Not  a  function  deficit .or 

/*  Save  code  buffer  pointer 
/*  Get  location  of  variable  ccoe 


c_call^proc  (v_pt r->npt r-> label ) ;  /*  Generate  code 

buff  ptr  =  buff  holder;  /*  Restore  buffer  pointer 


if  (*nark_and  ■«  ptr) 
•mark  and  =  ot r-> 1 ink; 


/*  Traverse  list 


dei_and  (ptr)  ; 
break;  ) 


if  (v  ptr  »«  mark)  break; 


/*  £.nd  of  var  .  i  st  reacn.es 


v_ptr  *  v_ptr->link; 
while  (TRUE); 


/*  Exit  is  accomp^isn.ed 
/  *  break  in  the  lose 


Tauxand  **********“**»“***“““«*“/ 


tauxand  (ptr) 
nodal  ptr; 

■extern.  ?'_AG  and_fiaq; 
extern.  and_ptr  a.nd_head; 
mt  save_and; 
varptr  ~ar<; 

ana_ptr  tptr,  mark  and  =  and_head; 

save  and  »  ar.d_flag; 
and  f.ag  *  TRUE; 


/•  semantic  :nec<  for  anc  'cue 


/*  Ho.der  for  ana  f-ag 
/•  Mark  top  entry  m.  tne  var 
/*  Mark  current  -eat  of  a-c 

/'  Save  current  and  f.ao 


/*  Set  an.d_f.ag 


1  *..r  fc-T a 


'X»dl'*»*JI  ~5*'  J*  r-*~-r  - 


semcheck  (ptr->lptr)  ; 
nark  -  varhead; 
semcheck  (ptr->rptr); 


/*  Semantic  Check 


and  check  (mark,  and_head,  4mark_and)  ; 
ar.d_flag  -  save_and; 
tptr  »  and_head; 


/*  Check  all  new  fct.n  &  data  cefs 
/»  Restore  and  flag 


whiie  (tptr  ! =  NULL) 
tptr  -  tptr->link; 


/*  Traverse  list  until  er.d 


if  (mark_and  !=  and_head) 
terror  (ERR  ee,  ptr->l.n)  ; 


/*•  Undefine  variables  found 


/***«**************************  TTypeTimes  ****************************/ 

PHITYPE 

ttypetimes  (ptr)  /*  Semantic  check  •*'  when  used  */ 

/*  for  types  */ 

nodal  ptr; 

(extern  void  putform  (); 

PHITYPE  type; 


putform  (semcheck  (ptr->iptrl ) ; 
if  (type  =  semcheck  (ptr->rptr)) 
putform  (type) ; 
return  (NULL) ; 


/*  Attach  formal  type  to 
/*  formal  list 

/*  Look  for  right  type;  if  Z, 
/*  end  of  insertions 


/*  Always  return  NULL; 

/*  This  value  is  used  by  parent 
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'•.Va.vaa-a  a. 


/******************★★***********************,«•******#**********.«•*, «***„* 

*  PUBLIC  DOMAIN  SOFTWARE 

★  * 


*  Name 

*  File 

*  Authors 

*  Started 

*  Archived 

*  Modified 


Semcheck  Module  2 
Sem2 .c 

Maj  E.J.  COLE  /  Capt  J.E.  CONNELL 

01/02/87 

04/10/87 


irit1rir1r1riririr-kiiit*-it'k1tit4eiiitirii-k*it*ii1tiiir1tifii*1t1rir-kiiit1ririiiilrlt*ii1r1rlrlrlrlr1t1r*lt1ritlr*icn*itirit  +  *  + 


*  This  file  contains  the  following  modules  for  the  PHI  parser: 

★ 

*  Matchfor  Tfunauxdef  Tfunid 

*  Tactualist  Tid  Act_Walk 

*  Telist 

* 

*  Algorithm  : 

*  This  module  contains  the  procedures  needed  to  define  and  call 

*  functions.  Tfunauxdef  will  set  up  the  run-time  structure  of  the  fu.o- 

*  ction,  tfunid  will  check  the  semantics  of  the  function,  &  matchfor, 

*  called  by  tfunid,  checks  for  the  proper  type  4  number  of  formal  pa- 

*  rameters. 

*  Tactualist  coordinates  the  checking  of  a  function  call.  It  uses 

*  both  telist  and  act_walk.  Actwalk  determines  whether  the  number  4 

*  type  of  actuals  is  correct,  and  telist  checks  each  element  list  and 

*  returns  its  type. 

*  Tid  performs  semantic  checking  for  program  variables. 

* 

*  Modified  : 

********************************************************************** 


Externals  **************************»*...*. 

/*  For  "strcpy” 

extern  tr.oce  types 
extern  varptr  varhead; 

extern  void  terror  (),  c_store_code  (); 

/****************************  Globa  Is  *******************»********♦**», 

mt  actual  count  =  0;  /*  count  of  a*,  actual. s  * 

/  ****************************  Matchfor  ******************************* 


/************************** 

‘include  <sencf.ec.< .  h> 

•include  <scring.h> 


*atcr for  i nptr,  def ) 


'toa.  nptr; 
uefptr  def; 

extern  .or.g  curr_addr; 
extern  f n ode  *<getfptr  u; 
extern  FI AG  form; 

fn.oae  -tptr  *  getfptr  (def); 


>fotr; 


Match  fornals 
Cabled  cy  tfunid  (i  : 


p*  r 


:ac .e  for 


*  Flag  set  w.nen  t  o  r-a  .  s 

*  are  generated 
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if  (r.ptr->name  »-  IOENTIFIER_)  (  /*  Only  ere  forr-a. 

(r.ptr->type)  =  tptr->type; 

r.ptr->addr  -  curr_addr; 
putvar  (tptr->type,  nptr) ; 
nptr  -  nptr->rptr; 
tptr  -  tptr->iin.k; 

else  •  /*  Multiple  forra.s 

do  ( 

n.prr->lptr->type  »  tptr->type; 
n.pt  r->iptr->addr  «  curr_addr; 
curr_addr  •  curr_addr  - 

types  | tptr->type .. bytes; 
putvar  (tptr->type,  r.ptr->lptr)  ; 
nptr  =>  nptr->rptr; 
tptr  *  t  pt  r  -  >  i  i  .n  k ; 
while ( (not r ! -NULL) S  4 (tpt r ! =NULL) ) ; 


form  =  FALSE; 

-f  (.-.ptr  I-  SELL  tptr  '=  N’JLL) 
return  (FALSE); 

else  return  (TREE); 


/.*•».*••**«•**«•*•***  Tfunauxdef  **************************** 

void 

tfm.a-xdef  (ptrl  /*  Type  check  f.r.a.xeef 

noda.  ptr; 

extern  .ong  curr  adar; 

extern  void  c_end_proc  (),  c_;i-p  (l; 

extern  char  ’-are  <); 

extern  rcaa.  r.r ..-convert  (); 

ttar  *r-e  -  -a.lcc  (81  ; 

THITY'E  .type,  rtype; 
varptr  vsrl,  -ar<  *  varheaa; 

.eng  cresadar  *  c.rr  adar; 


/*  One  ptr  isn't  at  end 
/ *  Error  han.alea  in  c a .  - 


/*  halt  when,  end  reached 
/*  oy  either  ptr 


n-e  =  strepy  mine,  .name  (i>; 

c  ;~P  ( .nre i  ; 


.type  -  se-creck  <ptr->-ptr>; 
yce  -  sercn.ecx  iptr->rptr>; 


w-.i.e  ( varh.ead->  1  ink  ears) 
var '.  -  varhead; 
varhead  *  var head-> 1 m k ; 
varl->.inx  -  NELL; 
f  ree  ( var 1 ) ; 


pt  r  -  >  ret  r  ■ 

tltype,  rtype  ,  ptr->rptri; 
a  cr  ic  (net  ; 

aaar  -  cres  aadr; 


•  Sane  for 

*  Ger.  code 


•  E.mr.ate  f  o  r  -  a  1  s  f  r  t 


*  Convert  .. f  neeaeo 


•  ?e  set  doesresses 
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/».*.»*.«.**».**.***«*.»»««»**  Tfunid  **********»*«*******»*****»*.. 

?  K 1 7  Y  ?  o 

tfu.ni  a  ( c~  r '  /*  Serar.z  i  c  Cnee*  for  tfunic 

n  cda  _ 

ex:er-  cefptr  fi.rdaef  (); 
exter-  .-"5  ----  aaar; 
extern  cn.ar  ’^a-e  ti; 

.rt  ocm.t  =  2;  /•  Generic  l.ccp  van  ere 

defptr  eef; 

mar  vrr.aer  *  -al-cc  '  3 )  ; 

i  f  ;  :  (def  =  finddef  (pt r-> ipt r -> i.naex)  j)  ■  •/  *  rune  rare  net  femd 

terror  (ERR_ff,  ptr->n)  ; 
return  (NCTFGGNG) ; 


e  *  se 

ptr->lptr->type  *  cef->type; 
ptr->type  *  oe  f  - > type ; 

cm  van  ( pt  r  -  >  1  pt  r  -  >  t  y  ?e ,  ptr->lctr ,  FAL.3F)  ; 


/ *  Set  noae  type 


.  :  (’ratcr.fcr  (pt  r- >  rpt  r ,  ce  f ) 
terror  (I?.R_gg,  pt  r ; 


/*  Mater,  fcr~ais 


rc.aer  =  strepy  ( no leer ,  ra-e  ()); 

wtiie  !  *  ( to  laer  *  count)  ‘=  2)  • 

( p  t  r  -  >  1  pt  r  -  > .  abe  'cc-.n  t  ) 
(•(holder  -  count)); 


/•  ?usr.  pta.no  ->  ac 
/  *  string  to  array 


S 

> 

,s 

.*> 


'4 


pt r- > lot r->acar  *  2; 

c_start_proc  (pt r->l?t r->lace ;  *  Gen  code  for  begin  f 


>t  ype)  ; 


/***************************  Tel list  ********************************* / 

VO  to 

telist  <ptr>  *  Secant,  c  Chec<  fur  e.e-ent  ..it  * 

nodal  ptr; 


'  *  Only  sercnec<  if  rr.ere  .3 
*  soretnmg  t  re  re 


se~mec<  ( pt r - > ipt r )  ; 


Vl 

* 


recode 
re_code 
recede 
uai  ecu; 


("call 
i  "push 
{"pus  r. 


ppop\  r. 
cx'.r") 
d  1  \  n  M ) 


)  ; 


Generate  ~:oe 


/.*»*.»,**»**»,*.***,.***.»*.  Act  Walk 


**************** 


a 


wal<  (pt 


) 


^ec.rs.ve  pmet.r** 
se*  :re:<  sr  .  i . 


% 

s 


I 
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nodal  per; 
fnode  *fptr; 


if  (ptr->rptr  NULL) 

act_waik  (ptr->rptr,  fpt r->ii.ok)  ; 


/*  Recurse  until  NULL  ptr  is 


semcheck  (ptr->lptr)  ; 
if  (ptr->lptr->name  '.  =  ELLIST)  i 
+  <-actual_cour.t ; 

c_store_code  ("call  poopin'*); 

c_store_code  ("push  cx\r.‘M; 
c_store_code  ("push  di\.n")  ; 


/*  Incr  count  only  if  left  * 

/*  sibling  is  an  ID 

/■  Generate  code  to  put  aaoresses  * 
/*  on  the  stack 


/****************************  Tactuals 

PHITYPE 

tactuals  (ptr) 
nodal  ptr; 

(extern  void  c_cali_proc  (); 
extern  FLAG  and_flag; 
extern  varptr  findvar  (); 
extern  defptr  finddef  (); 
extern  char  "name  (); 

defptr  def  *  finddef  (ptr->lptr->index)  ; 
varptr  var  *  findvar  <ptr->iptr->index) ; 
int  count_hold  -  actual_count ; 
char  *iong_buff  »  malloc  (10) ; 
long  convert; 
fnode  *fptr; 


/*  Evaluate  actualists 


/*  Defstack  pointer  »/ 

/*  Varstack  pointer 

/*  Buffer  for  long  to  string  co.nv  * 
/*  Conversion  variable  *  ' 


actual_count  ■  0; 

if  (def)  (  /*  Definition  found 


if  (('.var  a  and_flag)  i  I  var) 

fptr  -  def->fptr; 
act_walk  (ptr->rptr,  fptr); 
convert  =  actual_count; 
c_store_code  ( "mov  bx,  ") ; 

stcl_d  (long_buff,  convert); 
c_store_code  (long_buff); 
c_store_code  ("\n") ; 
c_caii_proc  ("i_mov"); 

if  ( (and_fiag)  it  (!var)>  ( 
add_and  (ptr->lptr) ; 
c_caii_proc  (name  ()); 

else 

c_cali_proc  (var->nptr->label) 
actual_count  »  count_hold; 
return  (def->type); 


terror  (ERR_hh,  ptr->in); 
return  (NOTFOUND)  ; 


/*  Legitimate  cases 

/*  Get  a  ptr  to  the  formal  nodes  */ 

/*  Generate  code  to  put  *  of  * ' 

/*  actuals  on  the  stack 
/*  Long  to  string  conversion 

/*  Cover  "and"  scoping  ru.es  * 

/*  Holder  for  real  name 

/*  Gen  code  to  cail  function 
/*  Restore  actual  count 

/*  Function  name  not  fou.na 


| 

1 

I 


\ 

* 

. 


I 

I 

t 

I 


1 


y 


I 


i 

I 
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/*****************************************»**********»***************** 
*  PUBLIC  DOMAIN  SOFTWARE  * 


*  Name  Semcheck  Module  #3  * 

•File  Sem3.c  * 

*  Authors  :  Maj  E.J.  COLE  /  Capt  J.E.  CONNELL  * 

*  Started  :  01/02/87  • 

*  Archived  :  04/02/87  * 

*  Modified  :  * 

*********************************************************************** 

*  This  file  contains  the  following  modules  for  the  PHI  parser:  • 

*  Trdivide  Tidivide  Tarithop  * 

*  Tprimary  Tconvert  Tconstant  * 

*  Tand  Tor  Tnegation  • 

*  ★ 

•  Algorithm  :  * 

•  This  module  contains  the  procedures  necessary  for  implementing  * 

•  arithmetic  &  boolean  operators.  Tarithop  coordinates  the  semantic  * 

•  checking  of  arithmetic  ops  by  calling  the  proper  function  based  * 

•  on  the  operator  type.  Trdivide  &  Tidivide  handle  semantic  checking  • 

•  for  real  &  int  division,  respectively.  For  all  other  arithmetic  * 

•  ops,  the  numconvert  procedure  (semO)is  called  to  perform  seraan-  * 

•  tic  checking,  then  code  is  generated.  * 

•  For  each  boolean  operator,  the  appropriate  child(ren)  is  checked* 

•  and  code  is  generated  for  the  operation.  * 

•  In  addition,  tconstant  checks  the  type  of  a  simple  constant  by  * 

•  calling  convert,  &  then  returns  either  the  constant  type  or  an  error* 


*********************************************************************** 
*  Modified  :  * 

/  ****************************  Externals  ******************************  / 

<  semcheck  .  h> 

*.'C..3e  <  st  r  ;  r.g  .  h>  /*  For  "strc-pi"  * 


ex* err  veto  terror  < ) ; 
extern  void  c  store  code  O, 


/*  Store  as-  language  out? 
/*  to  a  butter 


/*************************  Trdivide  ***************************** / 


trdivide  (ptri 
roda-  ptr; 

•? HI  TYPE  .type,  rtype; 
exter-  F1AD  err_tour.d; 
ext er -  vc  .3  c  zt or  ( I  ; 


/*  Division 


tea.  ccerar.ds 


-type  -  semcheck  (ptr->lptr); 

s*  .ton  i  ..type )  • 

rase  (REAL)  :  oreak; 
case  ( INTEGER  I  : 
rase  (NAT'JRAi.) 
c  zt  or  ( )  ; 


/*  Check  lett  sioe  tor  type 


Vase  con  vs 


.ocate  errors 


oe‘a..'  :  terror  (ERRaa,  pt  r ->  .pt  r ->  in)  ;  /*  Lt  child  rust  rtr.  r.urerio  type 


Irror,  no  r.eea  to  go  thru  accae' 
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nvr»  »  ~ 


rtype  -  semcheck  (ptr->rptr)  ;  /*  Check  right  side  fcr  type  * 

switch  (rtype)  ( 

case  (REAL)  :  break; 
case  (INTEGER)  : 
case  (NATURAL)  : 
c_ztor  ( ) ; 
break; 

default  :  terror  (ERR_aa,  ptr->rptr->in) ; 

return;  /’  Error,  no  need  to  go  thru  acode* 


acode  (ptr,  REAL); 


/*  Generate  code 


/**********************.**  TIdivide  ******************************/ 

PHITYPE 

tidivicie  (ptr)  /'  semcheck  for  integer  division  */ 

nodal  ptr; 

(PHITYPE  itype,  rtype,  type  =  NATURAL; 


itype  =  semcheck  (ptr->iptr) ;  /*  TypeCheck  both  sides  •/ 

rtype  «  semcheck  (ptr->rptr) ; 

switch  (Itype)  {  /'  Check  it  for  Int/Naturai  Type  */ 

case  (INTEGER)  :  type  -  INTEGER; 
case  (NATURAL)  (break; 

default  ;  terror  (ERR_cc,  ptr->lptr->ln) ;  /*  If  not  Int  or  Nat,  error  */ 

return  (INTEGER); 

) 


/*  Check  rt  for  Int/  Natural  type  */ 

/’  If  not  Int  or  Nat,  error  * / 


acode  (ptr,  type);  /♦  Generate  code 

return  (type)  ; 

t 

/*******»*****************  TArithop  *******************»********«/ 

PHITYPE 

arithcp  (ptr)  /*  Type  Check  Addition, 

/*  Multiplication,  Sequence  Ops 

nodal  ptr; 

(extern  PHITYPE  r.umconvert  (); 
in.t  type; 


switch  (rtype)  f 

case  (INTEGER)  :  type  =  INTEGER; 
case  (NATURAL)  :  break; 

default  :  terror  (ERR_cc,  ptr->rptr~>ln) ; 
return  (INTEGER); 

) 


switch  (ptr->name)  ( 

case  IADD_)  :  /*  Addition 

case  ( SUB_)  :  /*  Subtract 

case  (MULT_1  :  if  (type  =  nuraconvert (ptr) )  < 

acode  (ptr,  type) ; 
return  (type) ; ) 
else  ( 

terror  (ERR_aa,  ptr->ln! ; 
return  (NATURAL); 


falls  through 


o.n  fails  through 
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case 


(RDIV_)  :  trdivide  (per)  ; 
ptr->type  -  type; 
return  (REAL); 

case  ( I D I V _ )  :  tidivide  (ptr) ; 

ptr->type  »  type; 
return  (INTEGER); 

case  (COLON_)  :  break; 

case  (CAT_)  :  break; 

) 


/*  Dummies  for  new, 

/*  but  watch  our  smoke' : : 

/*  " 


/*************************  Tp rimary  *******»*********************/ 

PHITYPE 

tprimary  (ptr)  /*  Handle  unary  or 

nodal  ptr; 

(PHITYPE  type; 

type  -  semcheck  (ptr->rptr)  ; 

if  ((type  !-  INTEGER)  il 
(type  »  REAL)  H 

(type  !-  NATURAL))  /*  Check  type  of  right  node 

terror  (ERR_aa,  ptr->rptr->in) ;  /*  Type  must  be  a  number 


else  if  ( (ptr->name)  »• 

NEGJ  ( 

/* 

Negate  operation 

c_store_code  ("call 

igetvalue\n") ; 

/* 

Spew  code 

c_store  code  ("neg 

ax\n")  ; 

c_store_code  ("call 

l 

iputvaiuein") ; 

/ 

return  (type) ; 

/* 

Note  that  no  action  is  req 

) 

/* 

for  unary 

/*************************  convert 

**************************.*../ 

PHITYPE 

convert  (string) 

/* 

Convert  const  to  real,  boolean 

/* 

or  integer  value 

stg  string; 

/* 

String  to  convert 

(FLAG  e  =»  FALSE, 

/* 

True  if  "e"  or  "E"  read 

period  «  FALSE; 

/* 

True  if  a  period  has  been  read 

int  count  -  0; 

/* 

Garden  variety  loop  counter 

if  ((strempi  (string,  " 

FALSE") 

ss  strempi  (string. 

"TRUE")))  ( 

/* 

If  not  boolean 

while  (string  [count]  ! 

=  0)  f 

/* 

Loop  until  end  of  string 

if  ( ! isdigit  (string 

[count] )  )  ( 

/* 

If  character  is  not  a  digit 

if  ((string  [count]  ==  'e')  ll 

(string  [countl 

»-  'EM)  ! 

/* 

"e"  or  "E"  found 

if  (e)  return 

(ERROR) ; 

/« 

Cannot  have  two  "e"s 

else  ( 

e  -  TRUE; 


if  ((string  (count  ♦  1]  ==  '*')  if  /*  or  character 
(string  [count  *■  1:  «»  '-')) 

** count ; 

)  ) 
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ilse  if  (string  ’count;  =='.')  1 

if  (period  return  (ERROR) 
else  period  *  CR’JE; 


/*  Oecma.  point  fo^-o 
/*  Cannot  nave  two  sen:: 


else  return.  (ERROR); 


(e  cefod)  return  (REAL), 


*  cerioo  or  "e"  ~a<es  res. 


if  (string  C;  ==  return.  CNCEC 


Negative  s.gn  “axes  ar  ,'tege: 


return  (NAC'JRAL)  , 


/*  If  r.c  otn.er  types,  -at,r; 


return.  (BOOLEAN I  ; 


-f  not  a  nuroer,  a  coo.ea- 


/************»************  TConstant  *****»*****»******«*****»****, 


tconstant  (ptr) 
nodal  ptr; 
(extern  put_addr  () 
PHICYPE  type; 

N  an.e  Re  c  'totr; 


/*  Har.d-e  constant  nodes 


/*  Constant  type 
/*  Constant  nane 


tptr  =  ptr->ir.dex; 


if  (type  =  convert  (tptr->narr.e  +  1)) 
ptr->type  -  type; 
put_addr  (ptr,  type); 
c_i_const  (tptr->name  *  1); 
return  (type);  } 


/*  Calculate  type 


/*  Fill  .node  i  ir.crener.t  aoo: 


terror  ( ERR _ j j,  ptr->in) ; 


/’  No  legitir*ate  constant  fc-rc 


PHICYPE 

tan.d  (ptr)  /*  Sen  Check  for  c:c.  arc 

nodal  ptr; 

•PHICYPE  itype,  rtype; 


itype  =  sencheck  (ptr->lptr) ; 
rtype  =  serr.check  (ptr->rptr)  ; 


if  (!  (Itype  “■  BOOLEAN  &&  rtype  ==  BOOLEAN))  /*  3oth  ch.ilarer.  “use  ce  r 
terror  ( ERR_kk ,  ptr->ln) ; 


c_store_code  ("caii  Iand\n") ; 
return  (BOOLEAN); 


/*  Generate  code 


/*******************************  Tor  ***************************’ 

PHICYPE 

tor  (ptr)  /*  Sena  Cheer  for  cnol  or  ■ 

n.oda-  ptr; 

(PHICYPE  itype,  rtype; 


itype  -  sencr.ec*  (ptr->iptrl; 
rtype  *  serenee*  (ptr->rptr); 


if  ('(itype  BOOLEAN  ii  rtype  «»  3CCLEAN) )  /*  3otn  chilarer.  --st  ce  c. 

terror  (ERR_kx,  ptr->.nl ; 


y>  v>U:v:v  >  >:v. :'A'-vi <•:/. /:  _■  .!■' ■  .v »• » 


v  v  v  «*_<!  m  v  s  v  >  _•>  .*> 


Generate  coae 


c_store_code  ( "  c  a  ~  1  LorNr*."); 
return  (BOOLEAN); 


/*****•*************************  Tne<jat ion 

PH  I TYPE 

meg  at  ion  (ptr ) 
noaai  ptr; 

; t  ( ’ { sercheck  (ptr->rptr)  **  BOOLEAN) ) 
terror  ( £RR_<k,  ptr->lr.i; 
e.se  c  s:cre_code  ("call  r.egat  ion '  n '* )  ; 


*********************** 

*  Sera  cr.ecx  for  reg  opera 

/ *  Pt  cr,;*a  r;st  oe  a  ccz.e. 
/*  It  cr.ild  : s  n„:. 

/•  Gen  code  for  ccc.ear  r.eo< 


return  (BOOLEAN) 


/***********★*******************************★****★**************!►*** 
*  PUBLIC  DOMAIN  SOFTWARE 


*  Name 

*  File 

*  Authors 

*  Started 

*  Archived 

*  Modified 


Semcheck  Module  #4 
Sem4 . c 

Maj  E.J.  COLE  /  capt  J.E.  CONNELL 

01/29/87 

04/03/87 


it 


*****#****************★*******•***★*★******★*★**★★★★★******★*********★■*** 


*  This  file  contains  the  following  modules  for  the  PHI  compiler:  * 

*  * 

*  Tif  Tthen  Telseif  * 

*  Telse  Tcomp  * 

*  * 

*  Algorithm  :  * 

*  This  module  contains  the  procedures  necessary  to  implement  the  * 

*  "if-then-elseif-else"  series  of  commands.  Tif  coordinates  the  seman-* 

*  tic  checking  by  calling  Tthen  to  check  its  left  nodes,  then  calling  * 

*  telse  to  check  its  right  nodes.  Telse  will  be  called  until  the  right* 

*  subtree  runs  out  of  "elses"  and  "elseifs".  * 


*  Modified  :  * 

■a**********************************************************************/ 

/  ****★*★**★*★*★★**★*★★★*★**★*  Externals  *******************************  j 

•  include  <senc.‘,.eck.h> 

•include  <strir.g.h>  /*  For  "strcpy" 

extern  FLAG  err_four.d; 
extern  PHITYPE  semcheck  (); 


extern  char  'name  (); 

extern  void  terror  (),  c_store_char  (); 


c.nar  'if_label  *  NULL; 

/****************************  Tif  * 

PHITYPE 
t .  f  (ptr) 

.nodal  ptr; 

■extern  PH1TYPE  ntncor.vert  (); 

PHITYPE  type; 

-f  (if_label  ’ *  NULL)  if_iabei  =  mailoc 

if  .aoel  *  strcpy  (if_label,  name  ()>; 
type  =  numccnvert  (ptr); 

c_store_code  (if_labell; 

c_stcre  code  (":\n”); 

return  (type)  ; 


*****************************  f 

/*  Semantic  meeker  for  "if"  none  * 
/*  Ptr  to  the  node 

/*  In.t,  Natural  to  rea.  converter  * 
/*  Return  val-e  type 

(8)  ; 

/*  Generate  label 

/*  Check  i  con.v  It  a.nc  rt  types 

/*  Output  code  if  an  error 
hasn't  been  fo  ;nd 


< 
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/********«****************  xthen  **********»*************«•****«*/ 

PHITYPE 

'then  (ptr)  /*  Sem  checker  for  then  node 

.nodal  ptr;  /'  Pointer  to  the  node 

iPHITYPE  Itype,  rtype;  /*  Type  returned  from  left 

c.nar  'label  =  calloc  (7,1);  /*  Jump  for  asmlar.guage  coce 

char  'holder  =  calloc  (7,1); 


strcpy  (holder, if_label) ; 

if  (  ( ltype  =  semc.neck  <ptr->lptr)  )  300LEAN)  /*  Left  node  contains  condition; 

/'  must  be  a  boolean 

terror  (ERR_11,  ptr->iptr->ln) ; 


i£_label  =  strcpy  ( if _labei, holder) ; 
label  =  strcat  (label,  name  0); 
c_store_code  ("call  igetvaiuein") ; 
c_store_code  Ccmp  ax,i\r."); 
c_store_code  ( "  jne  ”) ; 
c_store_code  (label); 
c  store  code  ("\n") ; 


/'  Get  a  label  for  assembly  code 
/*  Print  proper  code 


rtype  =  semcheck  (ptr->rptr>; 


/*  Check  right  side 


c_store_code  ("imp  "); 
c_store_code  (if_labei); 
c_store_code  ("\n"); 
c_store_code  (label); 
c  store  code  (":\n"); 


/*  Generate  code 


return  (rtype) ; 


/*  Right  type  is  returned 


PH ITYPE 

teiseif  (ptr)  /'  Sem  check  for  "elseif"  node 

nodal  ptr;  /'  Ptr  to  the  r.ooe 

(extern  PHITYPE  numconvert  () ;  /»  Function  converts  and  returns 

/*  left  and  right  types 

return  (numconvert  (ptr)); 

PHITYPE 

telse  (ptr)  /*  Sema  checker  for  "else"  nae 

•nodal  ptr; 


return  (semcheck  (ptr->lptr) ) ; 


/*  Return  left  sude; 

/*  right  side  is  always  endi.f 


/*****»********************  Tcomp  ********»*****************»****/ 

PHITYPE 

tcomp  (ptr)  /*  Handle  comparisons  and 

/*  set  membership  operations 
/'  FOR  INTEGERS  AND  3CCLEAN3  DN 

noda,  ptr; 

•extern  PHITYPE  numconvert  (); 

PHITYPE  type; 
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/*«»********«***************************■»***************»**,,***,,*,,., 

*  PUBLIC  DOMAIN  SOFTWARE 


*  Name  :  Semcheck  Utilities. 1 

*  File  :  Sem_U.c 

*  Authors  :  Maj  E.J.  COLE  /  Capt  J.E.  CONNELL 

*  Started  :  01/02/87 

*  Archived  :  04/03/87 

*  Modified  : 

***★****★**★**★*★**★★★★★***★*****★*★★****★*********•**•***************1 

*  This  file  contains  the  following  modules  for  the  PHI  parser: 


Putvar 

Getfptr 

Name 

Putdef 


Putform 
Getvtype 
Getdtype 
And  Alloc 


Makef orm 
Finddef 
Form 
Add  And 


Findvar 
Put_addr 
Makevar 
Del  And 


★A********************************************************************* 

*  Modified  :  * 

if*******************************************************************.* y 

/A*********************..****  Externals  ******************************/ 

♦include  <semcheck.h> 

♦include  <string.h>  /*  for  "stpcpy" 

/*»********«*««***************  Qlobals  ***********************,*»****/ 

FLAG  err_found  =  FALSE;  /*  True  if  an  error  found  */ 

long  curr_addr  =  START_A3CR;  /  *  Next  address  to  be  used  to 

/*  place  a  variable 

long  curr_scope  »  START^ADDR;  /*  Current  scope 

form  •  FALSE;  /*  True  if  formals  being  processes' 

/***********************  Typetable  Definitions  »***********************/ 

t“t  typeptr  =  TYPE_INIT;  /*  Per  to  last  typetab.e  insert  * 

mode  types  [MAXTYPESi;  /•  Typetable  * 

/*******************«****  vartable  Definitions  *********************»**/ 

varptr  varhead  =  NULL;  /*  Head  of  varies:  lm<ed  l.st 

/************************  Qeftable  Definitions  *****************»*»****/ 

defptr  defhead  *  NULL;  /*  Head  of  deftao.e  lir.xea  .1st 

/***■********************  And_List  Definitions  ******************♦****»*/ 

and_pt r  and_head  *  NULL;  /*  Head  for  and  list 

and_fiag  -  FALSE; 

/******************************  Make form  ********»************»**»«**»*/ 


-axe form  () 


Ireate  a  formal  r.oae 


return  ((fnode’)  calioc  (1,  sizeef  (fnode))); 


/•A**************************  pu^ form  *********************************/ 


putform  (type) 

PH1TYPE  type; 

•extern  fnode  'fhead; 
fnode  *ptr  *  maxeform  (), 
•tracer ; 


/*  Put  type  into  formal  1 tst 


•'*  Yaxe  a  formal  node 
/*  Tracer  for  the  for-al  its: 
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■„  if njr-n.  if  aw  if  R«a 


/* 

PHITYPE 
getvtype  (ptr) 
varptr  ptr; 

return  iptr->type) ; 


/’ 

void 

putdef  (type,  treeptr) 
PHITYPE  type; 
nodal  treeptr; 
•extern  int  form; 


Q0  £  VP®  ******************************** / 

!  *  Get  type  of  va r  lr.  var  stac.< 


r  *****  *  Put de f  ******************************** i 

/*  Put  var  in  definitions  tac.e  *  ■■■ 


defptr  ptr  =  (struct  def  node  * )  caiicc  ( 1,  sizeof  (struct  def.nodel  )  ; 


/' 


ptr->nptr  *  treeptr; 
ptr->type  »  type; 

otr->linit  =  defhead; 
defhead  -  ptr; 
ptr  =  NULL; 
f  ree  (ot  r )  ; 


aefDt  r 


/*  Eiii  entry 

/*  Set  top  of  iin.icea  list 
/*  Free  pointer  space 


,***»«*  Finddef 


finddef  (var name) 
long  varname; 

■'defptr  ptr  »  defhead; 

while  (ptr  :■  NULL) 

if  (ptr->nptr->index  »»  varname) 
return  (ptr); 

ptr  =  ptr->lin.K;  ) 

return  (NULL)  ; 


J  *************f 

f  node 

'getfptr  (ptr) 
defptr  ptr; 

return  (ptr->fptr); 


/* 

PHITYPE 
genotype  (ptr) 
aefptr  ptr; 

return  (ptr->type) , 


/***********) 

void 

add_ar.d  (ptr) 
nodal  Dtr; 


getfpt  r 


/*  3reak  if  variable  found 
/*  Return  ptr  to  proper  var.-.ede 


/*  No  tally  on  varuaoi.e  * 

******** *★**************/ 

/  *  Return  fotr  from  def  tacle  * 


r»*  Getdtype  ** 


*  *  *  *  *  1 


r**********i 


/*  Get  type  of  var  m  def  tacie 


Add  and 


********************************* 


/*  Add  a.nd_noae  to  and  .  :st 
/*  Ptr  to  r.oae  cent  ammo  va: 
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PHITYPE  type; 


/*  Node  type 


ptr->addr  -  curr_addr; 
ptr->scope  -  curr_scope; 

curr  addr  -  curr_addr  +  (types  [type  Kbytes); 


/■  Set  node  address 

/*  Increment  curr_addr  by  .nu~  cl 
/'  bytes  type  needs 


if  (curr_addr  >  MAXADDR) 

terror  (ERR  mm,  ptr->ln) ; 


/*  Error  if  address  exceeds 
/'  address  space 


char 
•name  () 


/*  Generate  an  appropriate  rare 
/*  for  a  label/  procedure 


char  'string  =  malloc  (7), 


/*  Holder  for  output 


'stringl  *  malloc  (7); 
static  long  seed  -  10000; 

•string  =  ‘ a * ; 

'(string  1)  =  ENDSTRING; 

stcl_d  (stringl,  seed); 

string  -  strcat  (string,  string!) ; 

**seed; 

return  (string); 


/'  Number  to  append  to  string 

/*  String  prefix 

/*  Insert  string  terminator 

/'  Convert  long  seed  to  string 

/*  Concatenate  strings 

/*  Incr  int  to  avoid  duplication 


FLAG 

formal  (ptr) 


Formal  **************************•****/ 

/'  Returns  true  if  the  varnode 
/'  describes  a  formal 


varptr  ptr; 

if  (ptr-?form)  return  (TRUE) ; 
else  return  (FALSE) ; 


APPENDIX  K 

ROCK  COMPILER  —  CODE  GENERATION  MODULE 


PUBLIC  DOMAIN  SOFTWARE 


Name 

File 

Authors 

Started 

Archived 

Modified 


Code  Generation  Module 
Code_Gen . c 

Maj  E.J.  COLE  /  Capt  U . E .  CCNNH 

02/06/87 

04/10/87 

04/13/87  Code  output  to  vdis* 


This  file  contains  the  following  modules  for  the  PHI  compiler 


C_Store_Code 
C_Ending 
Ac  ode 
C_I_Const 
C_I_Op 


_3t  a  rt  up 
_?rintcode 
_Jmp 
_I_Form 
Call  Proc 


C  E r.d  Pro: 


Algorithm  : 

This  module  contains  the  procedures  necessary  for  code  genera*. 
C_startup  initializes  the  ru.n_time  file,  4  the  semantic  checker 
call  the  procedures  as  necessary.  Note  that  "c_st o re_c c de”  -s  a 
genaric  generator  which  will  spew  any  string  given  as  an  arc  * 
output  file. 


Modified 


04/13/87  Code  output  to  vdisic,  drive  "  d :  " 


,  ************************ 

-ae  <  sere r.ec<  .  r.  > 

*  . :  : .  -  :e  <  st  r  :  rq  .  r.  > 

<  f  ert  -  .  "> 

*?x*.er*  r  LA z  err  f  :  „ r  a ; 

TfXter-  .  zr.q  c^rr 


~ ' i r  *::ie  ojf:er; 

.  otr  -  NULL; 


Externals 
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.i  (  '  err  found)  •  /*  Compute  only  if  r.o  error  fouro  •, 

wiiiie  <• '.string  *  ptn  N'JLil  <  /*  Copy  string  cr.ar  oy  rrar 

* ( coaeo. f f er  *  ouff_ptrl  *  *< string  »  ptn; 

-*ptr; 

"Oiffptr; 


/*****************************★  £  jmp 

V  3  ;  3 

-  ;-c  i".arei 
c-.ar  v-a-e; 

:  st ore  code  <M*mp  **)  ; 
c_srore_ccae  (naffe); 

:  s:ore_cade  (  "  \  r. " )  ; 

/**********«*********** 

VO  13 

rstarcproc  ( rare ) 

cr.ar  •  r.aire; 

c  sic  recode  (ran*.®)/ 

:_stc:e  cede  (**  :\n" ); 

/ft***************************  c__End_P roc 

:  ere  pro:  {  r. are > 
era  r  •''are; 

c  sicre_code  ("caw.*  de . _scope\n" )  ; 
e  st  :  re  code  (  "  ret  \  r. " )  ; 

•  s:::e  ccae  <ramei; 
e  s* :re  rode  ( M :  \ n " i ; 


**************************** 

:  i . .  pror  (  ra-e » 

■■a:  *  .**  a  -e  ; 

re  ccae  ( " -a *  1  " )  ; 
r  e  ::ee  « arc)  ; 

: *?  ;ae  ”  r. ”  1  ; 


C_I_Form  *******************************/ 

*  Generate  ca *  1  :c  cj:  :r.:ecer 
,  *  ?or~a.  adar  cr.tc  stac* 


i*  re  rede 
v  .re  ce 
; '  .  >?  '  ;  c  e 
5  *  ;  :  e  je 
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C  Call  Proc 


r**********  j 


/*  Output  cal.  for  an  asse-siy 
/*  ia.nguage  procedure 


/*  Output  name  for  ending  an  */ 

/*  assembly  language  procedure  */ 


v. 


/****************************  c_I__Const  ************************** 

void 

c_i_const  (name)  /*  Output  code  for  assigning 

/*  integer  constant 

char  'name; 

; 

c_store_code  ("mov  ax,"); 
c_store_code  (name) ; 
c_store_code  ("\n") ; 
c_store_code  ("call  iputvalueln") ; 

y 

/****************************  C_I_Op  ***************************** 

void 

c_i_op  (op)  /*  Output  code  for  irt  arith 

optype  op;  /*  Type  of  operation 

{extern  void  terror  (); 

switch  (op)  ( 

case  (ADD)  :  c_cali_proc  ("iadd"); 
break; 

case  (SUB)  :  c_cali_proc  (“isub"); 
break; 

case  (DIVIDE)  :  c_call_proc  ("idivn"); 
break; 

case  (MULT)  :  c_caii_prcc  ("imult"); 
break; 

default  :  return; 

> 

) 

/********«**************  startup  ********************************/ 

void 

c_startup  ()  /'  Open  and  initialize  files 

■  code_buffer  =  getmem  (SI2EBUF PER) ;  /«  Initialize  buffer 

c_store_code  (  "extrn  initial  :  nearin'');  /*  Write  utilities  needed 

c_store_code  (  "extrn  iadd  :  near\n") ; 

c_store_code  (  "extrn  isub  ••  near\n")  ; 

c_store_code  (  "extrn  imult  :  nearin'')  ; 

c_stcre_code  (  "extrn  idivn  :  n.earin")  ; 

c_store_code  (  "extrn  iequ  :  nearin") ; 

c_store_code  (  "extrn  ineq  ;  nearin") ; 

c_store_code  (  "extrn  igt  :  nearin") ; 

c_store_code  (  "extrn  ilt  :  nearln") ; 

c_store_code  (  "extrn  land  :  nearln"); 

c_store_code  (  "extrn  lor  :  nearln") ; 

c_store_code  (  "extrn  igteq  :  nearln")  ; 

c__store_code  (  "extrn  iputvalue  :  nearln")  ; 

c_store_code  (  "extrn  ilteq  :  nearln") ; 

c_store_code  (  "extrn  igetvaiue  ;  nearln") ; 

c_store_code  (  "extrn  initial  :  nearln”) ; 

c_store_code  (  "extrn  finis  :  nearln") ; 

c_stcre_code  (  "extrn  print_top  :  nearln") ; 

c_store_code  (  "extrn  negation  :  nearln"); 

c__store_code  (  "extrn  i_formal  :  nearln")  ; 

c_store_code  (  "extrn  i_mov  :  nearln") ; 

c__store_code  (  "extrn  ppush  :  nearln"!  ; 

c_store_code  (  "extrn  ppop  :  nearln") ; 

c__store_code  (  "extrn  add_scope  :  nearln"); 

c_store_code  (  "extrn  del_scope  :  nearln"); 

c__store_code  (  "org  OlOOhlnln")  ; 

c^storecode  (  "csegln"); 

c  store  code  (  "call  initialln"); 


void 

c_princ_code  () 

(extern  char  prefix  [); 
ir.t  code; 
char  holder (301 ; 


C  Print  Code 


r  ***** / 


/*  Output  code  buffer 
/*  secondary  storage 

/*  Output  file 


strcpy  (holder,  ”d:"); 
strcat  (holder,  prefix); 
strcpy  (prefix,  holder) ; 
strcat  (holder,  ”a.86"); 


/*  set  up  file  r.are 


/*  save  prefix  &  drive  for  fut  _se* 


code  =  open  (FILENAME,  0_TRUNC  I  0_WR0NLY,  NULL) 

write  (code,  code_buffer,  buff_ptr) ; 
close  (code); 


/*  Open  file  for  writing  and 
/*  overwriting  only 
/*  Write  the  buffer 
/*  Close  the  output  file 


C  Ending 


void 

c  ending  () 


/*  Ending  for  output  code 


if  ( ! err_found)  ( 

c_store_code  ("call  print_top\n") ; 

/*  Print  address  pointed  to  by  */ 

c_store_code  ("call  finisNn") ; 

* (code_buf fer  +  (buff_ptr  *♦) )  =  CNTRL_Z; 

c  print  code  (); 


/*  top  of  program  stack  */ 
/*  Routine  to  make  clean  ending  */ 
/*  If  no  error,  put  asm  language  */ 
/*  delimiter  to  file  »/ 
/*  Output  code  to  a  file  */ 


void 

c  ztor  0 


c  ztor 


/*  Gen  code  for  con.v  inf  to  real 
/*  Empty  now,  but  watch  our  smoke  */ 


Ac  ode 


void 

acode  (ptr,  type) 

nodal  ptr; 

FLAG  type; 

•extern  void  terror  ()  ; 
inf  name; 

name  =  ptr->name; 


/*  NOTE  :  USES  EMPTY  STATEMENTS 
/»  FOR  REAL  OPERATIONS 

/*  Generate  code  for  arith  ops 


switch  (name)  { 

case  (ADD_)  :  if  (type  »»  REAL)  ; 
else  c_i_op  (ADD) ; 
break; 

case  (S(JB_)  :  if  (type  —  REAL); 

else  c_i_op  (SUB) ; 
break; 

case  (MULT_)  :  if  (type  -•  REAL)  , 
else  c_i_op  (MULT) ; 
break; 

case  (RDIV_)  : 

break ; 


/*  Addition 


/*  Subtraction 


/*  Multiplication 


/*  Real  (Division 


m 

8 
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APPENDIX  L 

ROCK  COMPILER  —  USER  INTERFACE 


*  Name 

*  File 

*  Authors 

*  Started 

*  Archived 


*  Modified 


User  Interface 
User .C 

Maj  E.J.  COLE  /  Capt  J.E.  CONNELL 

04/01/87 

04/10/87 


*  This  file  contains  the  following  modules  for  the  PHI  compiler 


User_err 
Print  header 


Getname 
P  Close 


Prog_name 

User 


*  Algorithm  : 

*  This  module  contains  the  procedures  necessary  for  the  user  in- 

*  terface. 

*  Prog_Name  gets  the  user's  choice  of  program  by  calling  Get_Name 

*  Print  header  is  called  to  print  the  initial  screen  display  on  con- 

*  sole,  &  the  User  procedure  is  the  overall  coordinator  of  the  inter- 

*  face. 

*  User_Err  and  P_Close  are  both  independent  procedures.  User_Err 

*  handles  output  in  the  event  that  an  error  or  errors  have  been  found. 

*  P_close  is  called  by  "Rock_Main"  to  ensure  the  input  file  has  been 

*  closed. 


*  Modified  : 


‘include  <user.h> 

♦include  <dcs.h>  /*  for  "getch  ()" 

♦include  <stdio.h> 


extern,  void  clrscr  (),  mov_cursor  (),  clr  window  (), 


/****•*»************************  Globa Is  **********«**«****************/ 


mar  u_na.<ne  i BUFFLENGTH 1 , 
prefix  ! BUFFLENGTH ! ; 


/*  fiar.e  of  Source  f:_e 
/  *  Prefix  of  source  f . _e 


/*  File  handle  of  source  f..e 


/**»*********»»*«****»*******»*  ugec  Err  ****************»*********♦*»*/ 

void 

.sererr  ()  /*  Screen  interface  for  error  -so  * 

■extern  void  clrscr  (); 


^  r  .  r.  r  .  *V  * 


mew HM  KJ  Tjr  wn rrmTHwtii  wri w* *  M  *-w.3 


extern  int  nurn_errors; 
FI  IE  'errors; 
int  nurblocks, 
count  -  3; 


ohar  'buffer  *  mailoc  (BSIZE), 


errors  -  fopen  (ERRCRFILE, "a") ; 
fpr.ntf (errors, 

"number  of  errors  *  %d\n",  nun  errors); 
put c  l  •  S  ■,  errors) ; 
feiose  (errors); 


/'  Number  of  errors  found 
/'  Error  File 

/*  Number  of  clocks  to  reaa 
/'  Generic  loop  vanaoie 

/'  Keypressea  after  pause 


Put  EOF  marker  cc 


rlrscr  ( )  ; 

errors  -  fopen  ( ERRCRF I  EE,  "r")  ; 

r.  unblocks  =  freed  (buffer,  BLOCKSIZE,  20,  errors )  ;  /*  Read  error  mgs  fren  error  files' 

/'  3E0CKSIZE  will  allow  whole  ' 

w„;._  ....  /*  oe  read  at  once 

w - e  ('(buffer  *  count)  :  =  • s 1 )  { 

putenar  ('(buffer  *  count)); 


pri.-.tf  (  " \ n  \n  \.n")  ; 


:f  ("%s",  PAUSE); 


input  *■  getch  (); 

f close  (errors ) ; 
o  1  r  s  c  r  ( )  ; 


/*  Skip  lines  to  give  appearance 

/*  of  user  friendliness 

/*  Pause  to  give  user  a  chance  to 

/'  contemplate  his  errors 

/*  Eat  keyboard  input  after  pause 


if  (input  ==  ESCAPE)  exit  ( 1 ) ; 


/'  If  user  pressed  escape, 
/’  exit  the  program 


/*«*»********,,»****, ************  Get name  **************»*»****»***,*.«/ 

void  ' 

getr.a.-e  ()  .  - -  _  . 


count  =  0; 


if  (  (ch  =  getch  ())  »-  BACKSPACE)  ( 
if  (count)  (  --count; 
putenar  (ch)  ; 
put cr.ar  (•  ■); 
putchar  (ch) ; 


e.se  if  (ch  ==  ESCAPE)  { 
cirscr  (); 
exit  ( 1 )  ;  ) 
e.se  if  (ch  <  127) 

( 

putchar  (ch); 

-  name  (count;  =  ch; 


/'  Returns  the  user's  choice 

/*  of  file  to  compile  •  , 

/’  Single  input  character 

/*  3uffer  pointer  .  , 

-oop,  get  f i . e  name  i.tr  by  itr  */ 
/*  <-  key  is  hit  . ,. 

/'  Backspace  », 

/*  Insert  blank 

^  *  Fa-  last  char  if  there  is  one  * 


! '  Escape  pressed;  exit 


-egit  mate  char  read;  use  it  ' 


wm.e  ((count  <=  3UFFLENGTH)  a 
c.n  ’=  EC  IN)  ; 


•'*  loop  until  buffer  f. 
>'  return  pressed 


■W>WWBWU>U»ftW»WWUmwiiWVWJrtiru>iyrwruxuF«yKyKF  UTBiWimp  V  *vr»  V  *»r  vi  «wa 


u_narae  [count  -  11 


void 

?roq_name  () 
do  { 

clr_window  (9,1,21,79); 
mov_cursor  (10,2); 
print  f  (GETPRCGRAM) ; 
get name  (); 

infile  =  fopen  (u_name,  "r") , 

if  ( ! inf ile)  ( 
mov_cursor  (20,  33); 
print  f  (FILE1_ERR0R) ; 
mov_cursor  (21,  16); 
printf  (FIL£2_ERR0R) ; 

if  (getch  ()  =-  ESCAPE)  < 

clrscr  ( ) ; 
exit  (1); 


/*  Insert  end  of  string  tnar 


Prog_name 


) 


} 


)  while  <  .’infile)  ; 

mov_cursor  (13,28); 
printf  (WAIT); 


void 

?rint_header  () 

clrscr  (); 
~ov__cursor  (1,33), 
printf  (HEADER!), • 
r.ov__cjrsor  (2,24), 
printf  ( HEADER2 ) ; 


Loop  until  fopen  fines 
legit  name 

Clear  out  lower  window  of  scr 


Name  not  in  current  directory 
Print  user  friendly  error  ~sgs 


Exit  if  ESCAPE  pressed 


Repeat  until  correct  tile  found*/ 
NOTE  -  escape  exits  loop  i  prg-*/ 


Print  header 


/*  Print  out  header  for  user 


P  Close 


feiese  ( ir.file)  ; 

/«*******», 

void 
,ser  () 

■  - r.t  count  -  0; 
pr:nt_header  (); 
crog_name  (); 

" n  - .  e  ( ' (u_name  [count;  == 

u_.name  [count  1  *  -  NULL)  )  ( 


prefix  count 
prefix  count 


u  name  [count;, 


User  ***•< 

/* 

/* 


******************** / 


Invoke  user  interface 
Duty  integer 


Copy  root  of  input  f tie  na-e 
Loop  until  end  of  input  "are  * 
reached  OR  until  end  of  str  .  s  • 
reached,  if  no  extension 

Insert  end  of  string  v3..e 
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APPENDIX  M 

ROCK  COMPILER  —  RUNTIME  UTILITIES 


*********************************************************************** 


*  Name 

*  File 

*  Authors 

*  Started 

*  Archived 

*  Modified 


Phi  Runtime  Utilities 
U.a86 

Maj  E.J.  COLE  /  Capt  J.E.  CONNELL 

01/26/87 

16  Feb  87 

16  Apr  87  Stack/Varspace  Crash  error  check  EC 


ik 


**★**★★*********★*****★*************★******■*********•****■***■*-*•********** 


*********************************************************************** 

ALGORITHMS 

Ir.put/Cutput :  The  first  section  of  the  program  contains  input  ana  output 

2.  Virtual  Space:  A  virtual  space  is  set  up  in  the  extra  segment  to  hole  bom  the 
stack.  The  middle-;  of  this  space  is  denoted  by  the  sysibol  "vans",  and  variables 
offset  (±  32700)  from  vars.  In  this  implementation,  the  program  stacx  grows  from 
vars  grow  from  the  ccttom.  The  virtual  space  is  assumed  to  be  made  up  of  weras 

(two  bytes) ,  so  only 

even  numbers  may  be  used  to  access  it. 

3.  Stack:  The  stack  pointer  is  the  si  register,  which  is  initialized  to  32':;. 
grows,  the  si  register  is  reduced  by  two.  Ppus.n  and  pp op  wil*  push  ana  pop  two 
registers.  "Push_one"  and  "?op_or.e"  will  push  and  pop  single  words  to  a.na  fro~ 

4.  Addressing  Program  Variables:  Each  program  variable  is  assigned  a  two-tuple  A 
scope  ar.d  0  is  the  offset  from  the  base  address  of  variables  in  mat  scope. 

turn,  the  address  of  a  variable  given  A. 

5.  Scoping:  Initially  the  scope  is  set  to  0:  the  global  scope.  The  variacle 
space  containing  the  outer  scope,  and  the  variable  "S_Nest"  contains  me  current 
new  scope  is  created,  "S_Nest"  is  increased  by  one,  and  the  three-tuple  S  = 

(1  =  Static  Link,  pointing  nesting  level  of  the  outer  scope,  N  is  the  nesting 
is  the  case  address  of  display  of  variables  for  this  scope. 

When  a  scope  is  deleted,  the  top  of  the  stack  is  saved,  the  top  instantiation  of  3 
ana  5_Li.h.k  and  SNest  are  recalculated . 

6  Inserting/Extracting  Program  Variables:  "I  Assign"  will  insert  an  integer  or 
scope  contained  in  S_Nest  when  it  is  requested.  "Iputvalue"  wili  insert  me 
resoponding  tuple  A  on  the  stack.  “Iget value"  will  pep  the  tup.e  A  off  me  top  of 
the  vaiue  of  the  integer  pointed  to  by  A. 

*********************************************************************** 

*********************************************************************** 

*  Modified  :  22  Feb  87  Add/del_scope  changed  to  save  TOS .  EC  * 

*  16  Apr  87  Added  check  for  stack/varspace  crash,  includes* 

*  message  to  observer  * 

ft****************1****************#*********#*************************** 
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public 

i  mov 

puolic 

i_f ormai 

puolic 

igetvalue 

public 

finis 

puolic 

iputvalue 

public 

f ind_addr 

public 

add_scope 

public 

del_scope 

public 

initial 

public 

finis 

public 

ppush 

public 

ppcp 

public 

iassign 

public 

lor 

public 

land 

public 

iequ 

public 

ineq 

public 

1  xt 

public 

igt 

public 

ilteq 

public 

igteq 

public 

r.eqation 

public 

iadd 

public 

istb 

public 

imult 

public 

idivn 

public 

prir.t_tcp 

Public  Procedures 


t******************** 


t*****************! 


I/O  Procedures 


*************** 


; ***********************  print_char  ************ 
; Print  a  char  to  the  screen 

/assumes  letter  to  be  printed  is  in  dl  register 


r**************i 


:_char  : 
push  ax 
mov  ah, 06 
ir.t  2Ih 
pop  ax 
ret 


/save  registers 
;out  int  vector 


*************************  Eoln  ************ 
Prints  end  of  line  character  to  the  screen 


r******** 


:  mov  dl,  10 

call  pnnt_char 
mov  dl,  13 
call  print_char 
ret 


,'Mcves  appro  ascii  vai-es 
; 13M  specific 


.*********************  print_Num  ************************’ 
/Prints,  as  a  number,  the  value  found  in  the  bx  register 


i  pen  per  mn  nr*  «tr  • 


prir.-_r.urr : 
pusr.  bx 
push  ex 
oush  ax 


push  ax 


mov  ex,  1CCCC 

3ase  for  dividing 

emp  ox,  0 

Check  if  negative 

;ge  small 

If  r.ct,  jure  :c  start 

rov  dx,  ■-* 

Err.it  negative  s.gn 

ca.l  print  _cr.ar 

r.eg  ox 

Megate 

mail:  crr.p  bx,  10 

■rest  If  less  tn.an  II 

jl  final 

iv  loop:  rov  ax,  bx 

•Divide  cx  cy  cx 

xor  dx,  dx 

•Sec  up  ax  register 

div  cx 

emp  ax,  0 

;r.e  p_lcop 

If  hot  zero,  jure 

rov  ax,  ex 

•Otherwise,  deer  ex  cy  f 

rov  cx,  1C 

xor  dx,  dx 

div  cx 

rov  cx,  ax 

,-y.ov  ax  to  cx  ana  cor.tir. 

jmp  div__loop 

loop:  rov  ax,  bx 

/Main  printing  loop 

xcr  dx,  dx 

;Set  up  dx  register 

div  cx 

D  iv  i  de 

rov  bx,  dx 

;Move  rexai.tder  te  Cx 

add  ax,  48 

;Add  for  ascii 

rov  dx,  ax 

;  Print 

call  prir.t__char 

xor  dx,  dx 

;3et  up  dx  for  division 

rov  ax,  cx 

Divide  base  val-e  cy  1C 

div  ex 
mev  ex,  ax 
c-p  ax, 1 
;r.e  p_iocp 


; * f  base  va * -e 
;Else  continue 


'  i  r.  a  -  : 

add  bx,  48 

mov  dx,  bx 

cal^  print _char 

ca..  eoir. 

pep  dx 

pep  ex 

pep  ox 

pep  ax 

ret 


;  Print  fir  a*  vai-e 


;Er.d  of  line 


,**********************  Print_top  ******************************* 

:  Prints  the  space  pointed  to  by  the  top  tuple  of  the  program  stack 


t  top: 

rev  d 1 , s i 

* 

aoa  3;, 

2 

rov  dx, 

var  s . di ; 

;  Get  rest  mo  .eve* 

aaa  di, 

,  2 

f * 

wov  c x , 

va  r  s  a  1 ' 

;  y.ov  offset  to  rx 

*  *  J*  v  w  ’ 


>  N 


wwra  tvwvwv  wu  iww* 1  1  w*w.r>r.  i 


r<j*  ”j»  rv*  '\^  "UP  V  -jTj-vprv  • 


;  Xcv  nun  from  actress  to  cx 
;  Print  r.urce: 

;  Inset  ec.r 


call  find_addr  ;Mcv  aaaress  ir-.c  si  re3 

r.ov  di ,  cx 
^ov  bx,  vars  [ di ! 
call  pr ir.c_r.urr. 
ca.-.  eoln 
ret 

*************************  print_s  ***************************** 
assumes  address  of  is  in  the  dx  register 
assumes  string  ends  with  a  "$"  sign 

orm.t  s: 


pusn  ax 
ittov  ah,  9 
int  21h 
pop  ax 
ret 


; save  rec . ster 


**★★★★*★*★*******★★****★**************•*★***•******•*******★*********1 


Stack  Procedures 


.***•**★★★*******★*■#★★****★*★****★********«**************#*★***★***< 


*************  PpU3  h  *******************************  ***< 

Pushes  values  from  cx  (offset)  and  di  (nesting  level) 


rev  vars  I  si i ,  cx 

*'  P  -  t 

offset  stac< 

sub 

si,  2 

;  :  r.c 

s :  a:<  pc.'-.er 

rov 

vars  .si.',  di 

;  ?  -t 

Nest  .eve.  stack 

sub 

si ,  2 

;  :  r  : 

stack  pc;  ter 

cr.p 

si,  curr_addr 

;  Che 

c<  for  stack; varspace  eras 

:q 

o_ret  urn 

;  :  t 

-c  eras.-,  sc  tc  etc 

rev 

dx,  offset  crash 

;  Get 

str.rp  fer  errer  -essape 

ca_  ?rir.t_s 
call  f inis 

o  return:  ret 


r.a.t  execution 


.*************************  Push__one  ***************************** 
■  Push  a  single  integer  from  cx  register  to  the  program  stack 


pusr.or.e:  nov  vars  .si,,  cx 

sub  si,  2 
ret 


;?-t  were  s:ac< 
;  Ir.c  stacx  pointer 


**************************  ppop  ******************************** 

Pop  values  from  the  program  stack  to  di  (nesting  level)  and  cx  (offset) 


add  si, 2 

^cv  di,  vars  s;  . 
aad  s i , 2 

"*ov  cx,  vars  .  si  I 
ret 


;  Set  -  p  pt  r 
;  Set  nest  m 3  .eve. 
;  9  e  c  a  .  c  pointer 
; Set  rffset 


*************************  P Op_0ne  ****************************** 

Pop  a  single  integer  from  the  stack  to  the  cx  register 


one :  aaa  si,  2 

-cv  cx,  vars  si 


; oei  were 
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«r-  y  v~w  W-  ■’  •'"J  *rv  »-.  ■ 


ret 


★  ★★A*********************************'******'*'*********************** 

*  Varspace  Management  Procedures 

★****★★**★****★★***★****★*****************★**★★*★********«**♦****** 

***»»*.*»«*************  i Assign  ****************************-«****** 
Assign  an  integer  value  to  a  variable  space  in  current  scope 
Assumes  value  is  in  ax;  offset  is  set  to  current  max  offset 

iassign:  -  o  v  a  i ,  s_ii.-.k 

;  get  static  iir.< 


SUD 

di , 

2 

;  oecr 

erer.t  it  to  pt  to  case  aa:r$;: 

rev 

di. 

vars ' d i . 

;  rev 

case  adsress  ::  o_ 

aad 

di  a 

rax_of  f set 

;  aaa 

of  f set 

r.cv 

var 

s  ‘di !  ,  ax 

;  rev 

r.-rcer  ir.t:  tr.at  aoa ress  :ca> 

aad 

rax 

_cf f  set , 2 

;  Inc 

r  a  x  offset  a  r.c  a  e  e :  e  :  i 

add 

cur 

r  _adar , 2 

ret 

.************************  iget value 
;Pop  the  stack  and  move  the  integer 
register 


******-*********#************* 

value  pointed  to  into  the  ax 


getvaiue : 
rov  dx. 

call  peep; 
di 

;  Get 

nesting 

.eve  1 

call  fi 

rov  di. 

r.d_addr 

cx 

;  Get 

aadr  of 

i  S_\’es 

rov  ax, 

ret 

vars  .  ai ; 

;  Get 

integer 

val.e 

set 


Iputvalue 


★  *★***★*■*★*■****★★*******1 


Takes  an  integer  from  AX  register,  puts  its  value  into  varspace, 
then  puts  its  address  on  the  top  of  the  stack 


ct val- 

e:  rov  ax,  s _r.es r 

;  Get 

static  nesting  .eve. 

rov 

cx,  rax_o f  f set 

call 

find  adar 

;  Get 

addr  of  ;5  Nest,  Vax  iffj- 

rov 

di ,  cx 

rov 

vars  di-,  ,  ax 

;  ?  -t 

va.-e  into  -ercry 

rev 

ai,  s  nest 

"OV 

cx,  raxoffset 

call 

.  ppusr. 

;  St  or 

e  ;  5  Nest,  Vax  Offset: 

aad 

rax_cffset,  2 

;  1  n.c 

rax  offset  ana  r-rr  soar 

ada 

corr_addr,  2 

ret 

*  *  *  *  * 

**★*★*★*★*★*****★★ 

Scoping  Procedures 


»*.»*****************  Find_Addr  *********************************** 
Returns  address  of  variable  at  nesting  level  dx,  offset  cx  to  cx  reg 

fir.a  assr:  rev  ai,  s  iir..<  ;set  adar  of  r-.rrer.t  star ;  -  cr .  •  * 

f  :r.d_lcoo:  crp  es:vars.ai  ,  jx  stac<  val.e  =  s::ce,  ox.’ 

;e  f  to 
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add  di,2 

mov  di,  es:vars;di] 
jmp  fir.d_ioop 


/Else  jump  to  next  scope  anc 


;Calc  per  to  base  addr  of  scope  vat; 

;Add  offset 


f_out :  sub  di,2 

add  cx,  es:vars[dii 
ret 

; ********************  Add__Scope  ************************************ 
/Start  new  scope  by  adding  static  link,  starting  address,  &  nesting 
level 


ada_sccpe:  rev  cx,  s_linx 
inc  s_nest 
mov  di,  sr.est 
call  ppush 
mov  cx,  curr_addr 
mov  di,  max_offset 
call  ppusn 
mov  max  of  f  set,  0 
mov  s_lin.it,  si 
add  s_li.n)<,6 
ret 


********************  Del_Scope  ************************************ 
Deletes  a  scope 


/Get  static  .  mx 

/Get  new  nesting  level. 
/Save  licit  and  level 


/Save  c'jrr  addr 

/Re  initialize  max  offset 


scope/  call  ppep; 

mov 

dx,  di 

call 

f ina_addr 

push 

cx 

dec 

s_nesc 

mev 

si,  s_linx 

sub 

si,  4 

mev 

cx,  esrvars 

( si 

mov 

max  offset. 

cx 

mov 

bx,  2 

mov 

cx,  es:vars 

[  si 

mov 

curr^addr. 

cx 

add 

si,  6 

mov 

cx,  esrvars 

'  s  i 

mov 

s__lir.'x,  cx 

pop 

di 

mov 

ax,  esrvars 

;di 

call 

ipucvalue 

/Save  top  of  stacx 


/Save  absolute  adcress  cf  its 
/Reduce  .nesting  .eve, 

/Gecrease  stxptr  to  current  .  -  ‘  t 


/jet  current  s"at_;  . .  -  < 
/Restore  - 


’**★**★**★************★*************★********#**#»*»*****< 

.  * 

*  Begin/End  Procedures 

■  * 

.*********************•*************#**•****«***«•«**»«««•, 


;****.********»**.*«***,*  xnitiai 
/initialize  the  3tack  and  variables 

/must  initialize  cx  to  base  of  stack  heap  before  calling  this 


initial:  r.cv  si,  3?Ac£_7CP 

rev  di, 0 
m.cv  cx,  C 
call  ppush 
ret 


;  I  r . ;  .  a .  .  z  **  sp  ?  .» *  a 


;  ?  -  $  r  case  s:.;dp  a  ~  2  a  zi:  * 
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•ncv  ax,  04c0Ch 


Booleans 

★  * 


*************************  Negation  ************************ 
Negates  a  boolean  value 


negation:  call  igetvalue 

cmp  ax,  1 
jne  zero 
mov  ax, 0 
j.np  p 

zero :  mov  ax,  1 

p:  call  iputvalue 


;Get  bco lean 


;  Jurr.D  :o  end 


/Stuff  occ .ear.  i  p-t  an : 


*************************  l 0r  a****************************** 

Takes  logical  or  of  two  booleans  and  stacks  address  cf  answer 


lor:  call  igetvalue 


/get  1st  occ. ear  eff  st a 


rrov  bx,  ax 
call  igetvalue 
or  ax,  ox 
call  iputvalue 


/save  doc. ear 

/get  2nd  va.-e  -sing  tre 

;  ?  e  r  f  c  r  ~  or 

/Pit  va.-e  into  var snare 


************************  Land  ******************************* 

Takes  logical  and  of  two  booleans  and  stacks  address  of  answe 


.arc:  ca..  iget va*-e 

-ov  ox.  ax 


/get  1st  ecu. ear  :r* 
/save  va.-e 


***  Iequ  ****»******•***»******♦****♦*#***. 

rakes  logical  equal  of  two  integers  and  stacks  address  of  answer 


:a . .  igetva .ue 


■:v  cx,  ax 
a.,  igetva.^e 


:e‘  s'  .  .  *  T 

save  v3 . _ e 


.  v  ax, 


/  o  ?a.se  vi.  ,e 


: a  .  .  .D  /.vi.  . e 


-■  1  -  -e  .  •  '  .  .  i  :  > :  I  *-■  ,  i  :  :  ■ 


SAVj/J/ 


r********************************** 


Takes  logical  not  equal  of  two  integers  and  stacks  address  of  answer 


ca*.  *  ge~ va . -e 


"ov  c k ,  ax 

ca..  .getva.^e 


-c  ax,  cx 


*:v  ax,  FALSE 
i ,  :  ca .  .  :o  r.va  .  .e 


;get  .  st  ir.t  of!  atacx  _o  tr.e  c 
; save  va.-e 

;  gee  secor.d  va..e  .  s  i  r  g  s:ac<  p 


; . -rp  if  eqia. 

;p  .  t  fa.se  va..e  ir.ro  var space 
; ? _t  va. .e  .r:c  var space,  aaor  cr  s:a:< 


iv  ax,  L’E 


;o-t  tr-e  va.-e  irtc  varspace 


*************************  Jit  ********************************** 

Takes  logical  less  than  of  two  integers  and  stacks  address  of  answer 
Returns  true  if  first  value  is  less  than  the  second  value 


:a. .  . get  va  .  „e 
"cv  cx,  ax 
:  a  . .  .getva.^e 
:-p  ax,  ox 
ge  .ess 
*  c  v  ax, 

;  -  :  :a.,  .  p,'va.  ,e 


;  qez  1st  ire  off  srac<  "0  tfe  ox 
; save  va 1 „e 

.•get  2 - d  va.oe  .s:r.g  tr.e  stacx  c:r 
; Compare 
;  Jurrp  if  .ess 

;  put  false  va..e  into  varspace 

;?ut  val.e  rr.ro  varspace,  acar  or  soars 


ess:  -cv  ax,  :A'_5r 


;  put  •.r,e  va..e 


varspace 


***«****************1 


r************************* 


tak.es  logical  greater  than  of  two  integers  and  stacks  address  of  answer 
Returns  true  if  first  value  is  greater  than  the  second  value 


■  ; v  cx,  ax 
:  a  . .  .  get  va  .  .€ 


,  .e  greater  tr.ar 


;a . .  .c/.va.-e 


get  1st  .  rt  c  f  f  s  t  a  c  <  *.i  ::e  " x  ■ 

save  vai-e 

get  seccr.a  va..e  „s.-g  s 1 pt: 


; - -rp  if  greater  t ran 
;p„t  fa.se  va .  ,e  *rts  var spare 
; P .  t  va.-e  irtc  varspace,  ^ ir 


cv  ax,  A L5 H 


>•  c  /.  t  r  .e  va  .  -e 


v  a :  s  c  a  c  e 


■•••••>»<••<••>••*•••••«  Xlteq  ********************************* 

taxes  logical  £  of  two  integers  and  stacks  address  of  answer 
Returns  true  if  first  value  is  less  than  or  equal  to  the  secor.d  value 


.  - e  1 :  : a . .  .  get  va  .  ..e 


3  .  .  .  jo’vi. 


i  r  <  -  '  '  e  x 


save  v a  .  .  e 
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mov  ax,  TRUE 
con2 :  call  iputvalue 

ret 


; put.  false  value  into  var space 

;?ut  value  into  varspace,  addr  on  stack 


Iteq:  mov  ax,  FALSE 

;mp  con2 
ret 


;puc  true  value  into  varspace 


;.**.***,,*******,***,***  Igteq  *********«***************,******* 

; Takes  logical  2  of  two  integers  and  stacks  address  of  answer 
value CnS  trUS  lf  flrSt  value  is  greater  than  or  equal  to  the  second 


gteq:  call  igetvalue 

mov  bx,  ax 
call  igetvaiue 
cmp  ax,  bx 
ji  gteq 
mov  ax,  TRUE 
con3:  call  iputvalue 

ret 


, get  -st  mt  off  stack  to  ire  cx  reg 
; save  value 

;get  second  value  using  stack  otr 
; Compare 

;Jump  if  greater  than  or  equal  to 
; ?put  false  value  into  varspace 
;Put  value  into  varspace,  addr  on.  stack 


gteq:  mov  ax,  FALSE 

jmp  con 3 
ret 


,* put  true  value  into  varsoace 


Integer  Operations  , 

.***«»„.*******.  ****************,********, 

.**********,,»,**,*.,.***  Iadd 

Adds  two  integer  values 

Assumes  offset  off  second  value  is  in  SI  register 
Offset  of  first  value  is  at  the  top  of  the  stack 

laad:  ca. 1  igetvalue 

~ov  bx,  ax 

call  igetvalue  . - ; 

t ' *rst  va* ue  to  cx  rec  s-e- 

aaa  ax,  ox  ^ 

r  rerrcrm  aaaitic r. 

;  o  err  .  , 

;if  overflow,  run  tire  error 


ca^L  iputvalue 
ret 


‘Put  integer  i.ntc 


varspace 


err:  rev  dx,  offset  add_err 

ca-1  print  s 
ca.i  ec In 
finis 
ret 


-rror  handler  fer  overf; 


*************************  ISub  *************************^**^<r^^^ 
Subs  two  integer  values 

Assumes  offset  off  second  value  is  in  SI  register 
Offset  of  first  value  is  at  the  top  of  the  stack 


•  -  *  -  *  igetva. le 

~  :v  ox,  ax 
a  *  -  .  -e*  va .  „e 
3  c  ax,  ox 


register 


153 


1 


ij 


,v 

S, 

s 

$ 

I 


f. 


* 

* 

—I 


."N 


/if  overflow,  run  tine  error 


call  iputvalue 


/Put  integer  Into  varspace 


errs:  mov  dx,  offset  sub_err 

call  print_s 
call  eoi.n 
call  finis 


;Print  error  message  on  overflow 


*************************  IMult  ********************************* 
Multiplies  two  integer  values 

Assumes  offset  off  second  value  is  in  SI  register 
Offset  of  first  value  is  at  the  top  of  the  stack 

irr.ult  : 

call  igetvalue 
mov  bx,  ax 

call  igetvalue  /First  value  to  cx  register 

imui  bx  /Perform  mult,  result  in  AX 

jc  errl  /if  carry  set,  run  time  error 


call  iputvalue 


/Put  integer  into  varspace 


errl:  mov  dx,  offset  mul_err 

call  print_s 
call  eol.n 
call  finis 


/put  error  message  in  dx  register 
/print  it 


.*************************  IDivn  ********************************* 

/Divides  two  integer  values,  result  in  varspace,  address  of  result 
stacked 

/Offset  of  first  value  is  at  the  top  of  the  stack 


push  cx 
push  dx 

call  igetvalue 
mov  bx,  ax 

call  igetvalue 

xor  dx,  dx 
mov  cl ,  1 
mov  ch, 1 
cmp  bx, C 
jg  test2 
;e  errd 
r.eg  cl 
neg  bx 


/Save  Registers 

/Get  divisor 

/Mov  divisor  to  bx 

/Get  dividend  to  ax 

/Set  dx  to  0 

/cl  and  ch  are  negative  flags 


/ bx  is  positive,  no  action  -eeaeo 
/bx  is  0,  ERROR 

/bx  is  negative,  cl  f-ag  negated 
/bx  is  made  positive 


:est2  :  cmp  ax,0 

jge  dloop 
neg  ch 
neg  ax 


/test  di vide.no 
/dividend  >-  2,  no  act -or. 

/ax  is  negative,  ch  i.ag  r-egater 
/ax  is  made  oositive 


sub  ax.bx 


cmp  ax, C 


;mp  dloop 


/loop  and  count  s -be  ract :  or.  s 


if  ax  -ess  than  C,  done 
store  resu -t  in  dx 
continue  -cop 
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done:  rnov  ai,  ci 


ipiy  or.  a.-.a 


cmp  ai, 0 
jge  dend 
n.eg  dx 

dend:  mov  ax,dx 

ooo  dx 


;it  product  not  negative,  no  aot 
;eise  negate  answer 


can  lputvaiue 


;Put  integer  into  varspace 


mov  dx,  offset  div  err 


car*  ?rint_s 
call  eoi.n 
call  finis 


;  pot  error  “essage  in.  ox  register 
; print  it 


*  * 

*  Function  Calling  Procedures  * 

★  tt 
**★***★****★★***★**★★★★★★***★*★****★***★*★*★*★******★****★★•*■**■**■****•*** 

******************************  i^mov  ********************************** 

Movs  integer  or  boolean  actuals  with  addresses  at  the  top  of  stack  to 

the  lowest  addresses  within  a  scope 

Assumes  bx  has  number  of  actuals  needed  to  be  moved 


i_mov:  pop  ret_addr 

caii  add_scooe 
sort:  pop  dx 

pop  cx 

caii  fir.d_addr 

mov  di,  cx 

mov  ax,  es:vars  : di ; 

oa.i  iassign. 

dec  Px 

omp  dx, 0 

;ne  strt 

oust  ret  aadr 


; save  i  mov's  return  address 


;m,ov  addresses  to  ox  and  oxi  reos 


;3et  virtua.  aodress  of  tn.e  mteoo: 


; Set  -p  ax  for  .  a  s  s . on 


Restore  .  -ov's  return  address 


;*********************  i_formal  ***********************************. 
;Puts  a  formal  to  the  top  of  the  stack 
;As3umes  offset  of  formal  in  cx  register 


i _ f or~a i :  mov  di, 3 

-cv  di,  s_r.est  [di  1 
oaii  ppush 


; Get  nesting  .eve. 
;?.sn  offset  i n 3  - e s t 


ft****************************#***************************************^ 


Variables 


r**********#**«*********W***********************************«**i 
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iPTTWli  w  « 


TRUE  EQU  1 
FALSE  EQU  0 
SPACE  TOP  EQU 


32703 


;Top  of  memory  space 


Integer  Variables 


♦  ★★♦Hr********************** 


max_of fset 

dw 

0 

curr  addr 

dw 

-32700 

s_I irk 

dw 

SPACE_T0P 

s  nest  dw 

s/ 

I  ret_addr 

dw 

0 

.  *************************  * 

, 'Maximum  current  offset  w/;r.  scope 
/Current  maximum  address 
/Current  address  of  static  Lir< 

/Current  static  nesting  _evel 

Error  Messaages  **************************** 


BsWAv.'iCi- 


div_err 
db  'S' 

mui_err  db 

db  'S' 

add_err 
"db  '  S  • 

sub  err  db 


db  'DIVISION  BY  ZERO,  FOOL:' 

'MULTIPLICATION  OVERFLOW,  ID.OT:' 

db  'ADDITION  OVERFLOW,  DIMWIT'' 

•SUBTRACTION  OVERFLOW,  NITWIT'' 


db  'S' 

crash  db  'STACK/VARIABLE  SPACE  CRASH' 

db  'S' 

/ **************************  Error  Messaages  **************************** 

eseg 

vars  dw  0 

end 
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APPENDIX  N  -  TEST  SUITE 

SIMPLE  TESTS  OF  FUNCTIONS  AND  VARIABLES 
let  c  :  $Z  ->  $Z; 

c  (20)  where  c  (n)  ==  if  1  =  2  then  3  *  n 
else  3  +  n  endif 

--Simple  "Hello  I’m  Alive  Test" 

let  c  :  $Z  ->  $Z; 

c(l  *2)  where  c  (n)  ==  n  *  3 

-  Test  for  expression  in  functions's  formals 

let  c  :  $Z  ->  $Z; 
c  (k  +  2)  where  k  ==  2  and 

c  (n)  ==  if  n  =  1  then  n  *  3  else  n  +  4  endif 

-  Test  for  expression  in  function's  formals 

TESTS  FOR  RECURSION 

let  c  :  $Z  ->  $Z; 

c  (k  *  2)  where  k  ==  2  and  c  (n)  ==  n  *  3 

-  Test  for  expression  in  function's  formals 

let  c  :  $Z  ->  $Z; 

c  (0)  where  c  (n)  ==  if  n  =  0  then  1  else  c  (n  - 1)  *  n  endif 
--  Test  for  recursion  in  functions 

let  c  :  $Z  ->  $Z; 

c  (5)  where  c  (n)  ==  if  n  =  0  then  1  else  c  (n  -  1)  *  n  endif 

-  Test  for  recursion  in  functions 

let  c  :  $Z  ->  $Z; 
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c  (3)  where  c  (n)  =  if  n  =  0  then  1  else  n  *  c  (n  - 1)  endif 
-  Test  for  recursion  in  functions 


let  c  :  $Z  ->  $Z; 

c  (7)  where  c  (n)  ==  if  n  =  0  then  1  else  n  *  c  (n  - 1)  endif 
--  Test  for  recursion  in  functions 

TESTS  OF  COMPLEX  FUNCTIONS,  INCLUDING  BOOLEANS  AS 
ARGUMENTS  AND  RESULTS 

let  c  :  $Z  ->  $B; 

c  (1)  where 

c  (n)  ==  n  =  6 

--  Test  for  booleans  in  function 


let  c  :  $Z  *  $Z  *  $Z  ->  $Z; 

c(2  -  1,3,4)  where  c(n,m,x)  ==  n  *  m  *  x 

--Test  for  multiple  arguments 


let  c  :  $Z  ->  $B; 
let  d  :  $Z  ->  $Z; 

c  (1)  where 

c  (n)  ==  1  =d(l)  where 
d(k)  =  k 

--  Test  for  chaining  in  functions 


let  c:$Z->  $Z; 
let  d  :  $Z  ->  $Z; 
let  e  :  $Z  ->  $B; 
c  (3)  where 

c  (n)  ==  1  +  d(n)  where 
d(k)  =  if  e(l) 
then  k  else  k  +  1  endif 
where  e  (k)  =  k  =  3 

-  Test  for  nesting  in  functions 
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let  c :  $Z  ->  $Z; 
let  d :  $Z  ->  $Z; 
let  e  :  $Z  ->  $B; 

c  (3)  *  10  where 

c  (n)  ==  1  +  d(n)  where 
d(k)  ==  ife(l) 
then  k  else  k  +  1  endif 
where  e  (k)  ==  k  =  3 

-  Test  for  nesting  in  functions,  result  multiplied  by  constant 


let  c  :  $Z  ->  $Z; 
letd :  $Z->  $Z; 
let  e  :  $Z  ->  $B; 

c  (3)  *  c(4)  where 

c  (n)  ==  1  +  d(n)  where 
d(k)  ==  if  e(l) 
then  k  else  k  +  1  endif 
where  e  (k)  ==  k  =  3 
and  b  ==  10 


-  Test  for  two  functions,  same  definition 

--  Also,  test  for  extraneous  variable  defined  at  end  of  program 


let  c  :  $Z  ->  $Z; 
let  d  :  $Z  ->  $Z; 
let  e  :  $B  ->  $B 


i 

: 

n 


c  (3)  *  c(4)  where 

c  (n)  ==  1  +  d(n)  where 

d(k)  =;=  if  e(2  =  3  A  4  =  5) 
then  k  else  k  +  1  endif 
where  e  (k)  =  k 

--  Test  for  boolean  expression  as  an  actual 


.*> 

fi 

s 


TESTS  FOR  "AND"  AND  "WHERE"  NESTING  AND  COMBINATIONS 

let  c  :  $Z  ->  $Z; 
let  d  :  $Z  ->  $Z; 

c  (3)  *  b  where  b  ==  10  and 
c  (n)  ==  n  *  d  (n)  where 
d  (n)  ==  3 

--  Test  for  nesting  in  functions 
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let  c  :  $Z  ->  $Z; 
let  d  :  $Z  ->  $Z; 

c  (3)  *  b  where  b  =  10  and 
c  (n)  ==  n  *  d  (n)  where 
d  (n)  =  3  *  e  where  e  —  10 

—  Test  for  nesting  in  functions 


let  c  :  $Z  ->  $Z; 
let  d  :  $Z  ->  $Z; 
let  e  :  $Z  ->  $Z; 

c  (3)  +  b  where  b  ==  10  and 

c  (n)  ==  d  (1)  +  if  n  =  e  (1)  then  2  else  10  endif 
where  e  (k)  ==  - 1  and 
d  (g)  ==  g  +  5 


—  Test  for  nested  wheres  and  ands 


let  c  :  $Z  ->  $Z; 
let  d  :  $Z  ->  $Z; 
let  e  :  $Z  ->  $B; 


c  (3)  where 

c  (n)  ==  1  +  d(n)  where 

d(k)  ==  if  e(l)  then  k  else  k  +  1  endif 
where  e  (b)  ==  b  =  3 


Test  for  nesting  in  functions 


let  c  :  $Z  ->  $Z; 
let  d :  $Z; 

c(5)  where  c  (n)  ==  d 
and  d  =  10  *  5 

--  Test  for  single  and  statement 
--  Test  for  datadef  declaration 


let  c :  $Z; 
let  d :  $Z; 
let  e :  $Z; 


c  where  c  ==  (d  +  10  +  e  where  e  ==  101 


*!  t»  n  «>.  it.  it.  it. 


r.y.i-Liin 


c(l)  A  d(2)  where 
c  (n)  ==  n  =  3  and 

d  fn)  ==  (1  =  k  (n  -  1)  where 
k  (1)  =  1  +  10) 


--  Test  for  proper  use  of  "and"  and  implementation  of 
-  Parens 


let  c  :$Z->  $Z; 
let  d  :  $Z  ->  $Z; 
let  e  :  $Z  ->  $Z; 

c(5)  where  c(n)  ==  d(n)  +  12  where  k  ==  100 
and  d(s)  ==  10  +  e  (s) 
and  e(k)  ==  20  +  k 

--  Test  for  Multiple  ands,  multiple  wheres  and  formal/variable  collisions 


let  c  :  $Z  ->  $Z; 
let  d  :  $Z  ->  $Z; 
let  e  :  $Z  ->  $Z; 


c(5)  where  c(n)  ==  d(n)  +  12  where  k  ==  100 
and  d(s)  ==  10  +  e  (s)  where  t  ==  100 
and  e(k)  ==  20  +  k  +  t 


--  Test  for  Multiple  ands,  multiple  wheres  and  formal/variable  collisions 


let  c  :  $Z  ->  $Z; 
let  d  :  $Z  ->  $Z; 
let  e :  $Z  ->  $Z; 

c(5)  where  c(n)  ==d(n)  +  12  where  t  —  100 
and  d(s)  ==  10  +  e  (s)  where  t  ==  120 
and  e(k)  ==  20  +  k  +  t 

-  Test  for  Multiple  ands,  multiple  wheres  and  formal/variable  collisions 

-  Also  test  to  see  if  the  proper  "t"  (120)  was  picked  up 


let  c  :  $Z  *  $Z  ->  $Z; 
let  d  :  $Z  *  $Z  ->  $Z; 
let  e  :  $Z  *  $Z  ->  $Z; 
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c(5,l)  where  c(n,m)  ==d(n,m)  +  12  where  t  ==  100  j 

and  d(s,z)  ==  10  +  e  (s,z)  where  t  ==  120  1 

and  e(k,l)  ==  20  +  k  +  t  + 1 

-  Test  for  Multiple  ands,  multiple  wheres  and  formal/variable  collisions 

-  Test  specifically  for  functions  with  multiple  arguments 


let  c  :  $Z  ->  $Z; 
let  d  :  $Z  ->  $Z; 
let  e  :  $Z  ->  $Z; 

c(5)  where  c(n)  ==  d(n)  where  t  ==  100 
and  d(s)  ==  (e  (s)  where  k  ==  2) 
and  e(k)  ==  20  +  t 

-  Test  for  Multiple  ands,  multiple  wheres  and  formal/variable  collisions 


let  c  :  $Z  ->  $Z; 
let  d :  $Z  ->  $Z; 
let  e  :  $Z  ->  $Z; 

cf  10)  where  c(n)  ==  d(n)  where  t==  100 
and  d(s)  ==  e  (s)  where  k  ==  10 
and  e(r)  ==  20  +  r  +  k 

-  Test  for  Multiple  ands,  multiple  wheres  and  formal/variable  collisions 


let  c  :  $Z  ->  $Z; 
let  d  :  $Z  ->  $Z; 
let  e  :  $Z  ->  $Z; 

c(10)  where  c(n)  ==  d(n)  +  t  where  t  ==  (r  *  100  where  r  ==  2) 
and  d(s)  ==  e  (s)  where  k  ==  10 
and  e(r)  ==  20  +  r  +  k 

--  Test  for  Multiple  ands,  multiple  wheres  and  formal/variable  collisions 


let  c  :  $Z  ->  $Z; 
let  d  :  $Z  ->  $Z; 
let  e  :  $Z  ->  $Z; 
let  f  :  $N  ->  $Z; 

c(  10)  where  c(n)  ==  d(n)  +  t  where  t  ==  (r  *  100  where  r  ==  2) 
and  d(s)  ==  e  (s)  where  k  ==  10 
and  e(r)  ==  20  +  r  +  f  (r) 
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and  f(r)  ==  r 


—  Test  for  Multiple  ands,  multiple  wheres  and  formal/variable  collisions 


let  c:$Z->  $Z; 
let  d  :  $Z  ->  $Z; 
let  e  :  $Z  ->  $Z; 
let  f :  $N  ->  $Z; 

c(10)  where  c(n)  ==  d(n)  + 1  where  t  ==  (r  *  100  where  r  ==  2) 
and  d(s)  ==  e  (s)  where  k  ==  10 
and  e(r)  =  20  +  r  +  f  (r) 
and  f(r)  ==  k 


--  Test  for  Multiple  ands,  multiple  wheres  and  formal/variable  collisions 


let  c  :  $Z  ->  $Z; 
let  d  :  $Z  ->  $Z; 
let  e :  $Z  ->  $Z; 
let  f :  $N  ->  $Z; 

c(10)  where  c(n)  ==  d(n)  + 1  where  t  —  (r  *  100  where  r  ==  2) 
and  d(s)  ==  e  (s)  where  k  ==  10 
and  e(r)  ==  20  +  r  +  f(r) 
and  f(r)  ==  if  r  =  0  then  100  else  f  (r  -  1 )  endif 

-  Test  for  Multiple  ands,  multiple  wheres  and  formal/variable  collisions 

-  Test  for  if-then-else  collisions  with  multiple  ands,  wheres 


let  c :  $Z  ->  $Z; 
let  d  :  $Z  ->  $Z; 
let  e  :  $Z  ->  $Z; 
let  f :  $N  ->  $Z; 
let  zebra :  $Z; 

c(10)  where  c(n)  ==  d(n)  + 1  where  t  ==  (r  *  100  where  r  ==  2) 
and  d(s)  ==  (e  (s)  where  k  ==  10 
and  e(r)  ==  20  +  r  +  f(r)  +  zebra 
and  f(r)  =  if  r  =  0  then  100  else  f  (r  - 1)  endif 
and  zebra  —  t) 

-  Test  for  Multiple  ands,  multiple  wheres  and  formal/variable  collisions 
--  Test  for  if-then-else  collisions  with  multiple  ands,  wheres 


let  c :  $Z  ->  $Z; 
let  d  :  $Z  ->  $Z; 
let  e :  $Z  ->  $Z; 
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c(5)  where  c(n)  **d(n)  •*>  12  where  t  =*  100 
and  d(s)  **  (10  +  e  (s)  where  k  **  100 
and  e(k)  *»  20  ♦  k  +  t) 

-Note  the  use  of  parenthesis  here  :  if  they  are  removed,  the  program  will 
-bomb  because  t  will  be  undefined 


ERROR  TESTING 

let  x  :$t 
let  j:$Z. 
let  i:Sz; 

i  where  i  *=x%j 

and  x  **5  and  j  =*0 

-  Gives  Division  by  Zero  run  a  me  error 


let  b:$b: 
let  i:SZ, 
let  j:$z, 
let  n:$n: 
let  x  Sz; 

if  b  then  i 

elsif  -tbAb)  thenj 
else  x  endif  where 
b  **  i*2  where 

i 

and  where  j 
and  where  z  *»  69 

Gives  two  parser  errors  line  1 1  and  14.  j  undefined  and 
where  following  and 

let  fac  SN  >  SY 

fac  1 5 1  where  fac  <  n  i  **  fac  <  n  1 1 

Check  for  stack  overflow 


too  much  where  too  much  **  KID  *  Mill) 
Check  for  Multiplication  Overflow 


too  much  where  too  much  **  VJOtlO  ♦  VlfM If > 
Check  for  Addition  overflow 
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too.much  where  too.much  —  -30000  -  30000 
-  Check  for  Subtraction  Overflow 


let  c  SZ  >  SB; 
let  d  :  SZ  ->  SB; 
let  k  SZ  >  SZ; 
let  g  SZ  >  SZ; 

c(l)  A  d(2)  where 

d  (n)  ==  ( 1  =  k  (n  -  1 )  where 
k  (1)  =  1  10)  and 

c  (n)  **  n  =  3 

-  Test  for  proper  use  of  comments;  note  that  there  is  no 
delimiter  on  the  second  line  of  comments,  as  there  should 
-  be 


MISCELLANEOUS  TESTS 

let  b:Sb; 
let  i:SZ. 
let  j:Sz; 
let  n:Sn, 
let  x  Sz; 

if  (b  V  -b)  then  i 
elsif  (b  V  -b)  then  j 
else  x  endif  where 
b  *■  i*2  where 

i  *-0 

and  j  **2 
and  x  **  64 

Test  for  not  construct  boolean  constructs 


let  b  Sb 
let  i  SZ. 
let  j  Sz. 
let  n  Sn. 
let  x  Sz. 

if  <b  v  -bi  then  i 
elsif  -<b  A  -bi  then  j 
else  x  endif  where 
b  ==  i*2  where 
■  =*<) 
and  j  **2 
and  x==  64 


--  should  give  2 
--  Check  and,  or,  notand,  notor 
-  Check  if,  else,  elseif 
--  Especially,  check  all  in  combination 


let  a:$Z; 
let  b:$z; 
let  y:$n; 
let  x:  $z; 

let  f:  $n*$n->$n; 
let  times  :  $n*$n->$n; 

f(  30,30)  where 

f(a,b)  ~  times(a.b)  where 
times(x.y)  «  x*y 
--  Multiargument  Checking 
--  Natural  Type  Checking 


let  a:$Z; 

let  b:$z; 

let  y:$z; 

let  x:  Sz; 

let  f:  Sz*$z->$z; 

let  rimes  :  $n*$n->$z; 

ft  30,4)  where 

f(a,b)  ==  times(a.b)  where 
times!  x.y)  == 
if  (  1*1)  then  x%y 
else  2  endif  end 
--  Integer  Division  Checking 


let  c  $Z  >  SB; 
let  d  :  $Z  ->  SB; 
let  k  $Z  ->  $Z; 
let  g  SZ  ->  $Z; 

c(  1 )  A  d(2)  where 

d  (n)  **  (1  s  k  (n  -  1 )  where 
k  (1)  ==  1  +  10)  and 
c  (n)  ==  n  =  3 

Test  for  proper  use  of  and’’  and  implementation  of 
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APPENDIX  O  -  ROCK  COMPILER  USER'S  MANUAL 


I.  Installation 

The  rock  compiler  program  comes  on  a  5.25"  disk  with  all 
public  domain  programs  necessary  to  run  it  To  install  this 
program  on  another  floppy  disk  or  a  hard  disk,  use  the  following 
procedures: 

1 )  Change  the  system  drive  to  the  disk  drive  containing  the 
j  floppy  disk. 

12)  Type  INSTALL",  followed  by  a  space  and  the  drive  and 

directory  on  which  you  want  the  program  installed. 

E  Note  that  the  Rock  compiler  uses  three  unsupplied  flies  to 

;  operate:  RASM86,  LINK86,  and  your  choice  of  word  processor.  The 

RASM86  and  LINK86  programs  must  be  installed  on  the  same 
directory  as  the  compiler. 


II.  Running  the  Compiler 

a.  Type  in  "ROCK"  and  wait  for  the  screen  display  shown  in 
figure  1  to  appear. 


ROCK  COMPILER 
Press  Escape  Key  to  Exit  Compiler 


Program  to  Compile  -> 


Figure  1 

b.  When  the  prompt  appears,  type  m  the  file  name  of  the 
source  file  you  want  to  compile,  then  press  return.  The 
compiler  will  accept  directory  specifications  in  the 
file  designation.  If  the  source  file  is  found,  the 
compilation  will  begin  immediately,  and  the  screen  will 
appear  as  shown  in  figure  2.  If  the  file  is  not  found, 
the  screen  will  appear  as  shown  in  figure  3 
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c.  If  a  successful  compilation  takes  place,  the  prompt  for 
a  source  file  reappears.  If  the  compilation  is  not 
successful,  error  messages  will  appear  on  the  screen, 
and  a  copy  of  these  messages  can  be  found  in  a  file 


ROCK  COMPILER 
Press  Escape  Key  to  Exit  Compiler 


Program  to  Compile  ->  SQRT.PHI 

Compiling:  Please  Wait 

Figure  2 


ROCK  COMPILER 
Press  Escape  Key  to  Exit  Compiler 


Program  to  Compile  ->  NOTFOUND 

file  not  Found 

Press  ESCAPE  to  exit,  any  other  key  to  continue 


Figure  3 


named  Errors. Phi.  A  typical  error  display  is  shown  in 
f  igure  4  After  perusing  the  errors,  you  may  press  any 
key  to  return  to  the  prompt  for  a  source  file. 


I 

I 

I 

\ 


Figure  4 

d.  If  compilation  is  successful,  both  an  exe  and  an  obj 
file  will  be  created.  In  the  event  that  an  error 
occurs,  neither  file  will  be  created 

WARNING  If  you  choose  to  compile  two  programs  with  the 
same  prefix,  ensure  you  save  the  first  one  before 
compiling  the  second  one.  otherwise,  the  second 
compilation  will  overwrite  the  output  file  of  the  first 
compilation 

e  To  cleanly  stop  the  compiler,  press  the  ESCAPE  key  any 
time  the  system  asks  for  an  input.  If  you  have  started 
to  compile  a  program  and  you  need  a  panic  exit,  press 
Control-Break  '  if  you  do  this,  the  cursor  will  not 
reappear  on  the  screen  However,  you  can  get  it  back  by 
running  the  ROCK  program  again  and  making  a  normal  exit 


ROCKY  ERRORS 


line  1  formaJs  list  missing  or  error  in  formats  bsi 
line  1  misplaced  or  missing  — 
number  of  errors  »  2 


PRESS  ANY  KEY  TO  CONTINUE 


III.  Error  Handling 

Errors  are  divided  into  two  categories  those  found  during 
compilation  and  those  found  during  run  ome  The  following  two 
sections  list  the  errors  messages  from  both  categories  which  you 
might  encounter  Each  message  includes  a  brief  synopsis  of  what 
causes  the  error 

COMPILER  ERRORS 


Message 
incomplete  'i-> 

N  without  following  /'. 
logical  OR  is  V 


Explanation 

Either  an  ’  or  1  was  found 
where  '<■  >  was  expected 

A  single  backslash  was  tound 
w  here  a  logical  or  construct 
iV)  was  expected 
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'$'  without  following 
R'.'N’.’Z'.'B  .or  T 

An  incomplete  type  declaration  was  found. 

invalid  numeric 
constant  »»>  3. 

An  illegal  constant  vas  found; 
in  this  example,  "3.” 

literal  without  ending 

An  unterminated  literal  was 
found,  or  a  literal  spanned 
more  than  one  line. 

unidentified  char 
ui  input  program  ==>  # 

A  character  with  no  meaning  was 
found  in  the  source  file;  in  this  example 

MEMORY  OVERFLOW 
DLRING  COMPILATION 

The  source  program  is  too  big 
for  the  host  machine  to  compile. 

error  in  statement 
following  «>  * 

An  illegal  statement  follows 

the  specified  character.  *\  in  the  example 

error  in  type 

definition  following  ==>  * 

An  illegal  type  definition  follows  the 
specified  character;  in  the  example 

unable  to  complete 
definition  of  blockbody 
after  keyword  LET 

An  unspecified  error  was  found 
after  LET,  and  the  compiler  is 
so  completely  sandbagged  that 
it  cannot  recover. 

missing  or  misplaced 
after  definition 

A  declaration,  preceded  by 

LET  ,  was  not  followed  by  a  semicolon 

valid  qualexp/exp 

not  found  in  the  def/auxdef 

An  invalid  expression  was  found 

valid  typeexp  not  found 
in  the  def 

An  expression  defining  a 

type  was  either  missing  or  incorrect 

formals  list  missing 
or  error  in  formals  list 

Formals  were  expected  but  not  found, 
or  formals  were  incompletely  specified 

misplaced  or  missing  ) 

A  PHI  keyword  or  delimiter  was 
expected  or  not  found.  )  in  the  example 

at  least  one  identifier 
must  follow  keyword  TYPE 

TYPE  found  without  an  identifier 

unable  to  complete 
dct/auxdef  following 
keyword  AND 

Improper  or  no  expression  found 
following  AND 
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missing  or  invalid  auxdef 
after  keyword  WHERE 

missing  or  misplaced 
closing  paren  in  formals 
list 

error  in  processing 
multiple  Actuals 

missing  literal 
after  keyword  RLE 

missing  or  invalid 

exp  following  KEYWORD 

IF  statement  w/o  ENDIF 

error  in  formals 
preceding  l-> 

missing  or  invalid 
QualExp  following 
COMMA  operator 

error  in  ArgBinding 
check  QualExp 
or  closing  bracket 


Improper  or  no  definition  following 
WHERE 

Formals  found  without  closing 
parenthesis. 


One  actual  was  found,  but  an 

error  was  spotted  in  a  subsequent  actual. 

FILE  was  found  without  a  file¬ 
name  being  designated. 

A  keyword  was  spotted,  but  the 
following  expression  was  illegal. 

No  ENDIF  to  close  off  an  IF  statement. 

"l->"  found,  but  the  formals 
list  preceding  it  contained  an  error 

A  list  of  elements  was  found 
with  an  illegal  expression  in  it. 


An  improper  expression  in  an 
argument  binding  was  found,  or 
the  closing  bracket  on  an  argument  binding 
was  not  found. 


OZONE  LEVEL  I 


NUMERIC  VALUE  EXPECTED 


NATURAL  EXPECTED 


Unimplemented  feature  found 
for  19  99  the  feature  can  be 
implemented  in  1999 

Non -numeric  type  found  where  a 
numeric  type  was  expected 

Natural  type  was  not  found  w  here 
it  was  expected 


INTEGER  OR  NATURAL  EXPECTED  Either  an  integer  or  natural  type 

is  proper,  but  neither  was  found 


ERROR  IN  TUPLE  DEFINITION 


UNDEFINED  VARIABLE 
IN  AND  SCOPE 


A  tuple  is  improperly  defined 
the  source  file  used  improper 
types  or  number  of  types  in  defining 
the  tuple  This  can  also  mean 
a  single  variable  was  improperly  defined 

An  undefined  variable  was  found 
in  one  of  the  two  branches  of  an 
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in  its  scope. 

FUNCTION  WITHOUT  A  function  was  defined  without  a 

FUNCTION  DEFINITION  declaration  of  its  type  and  formals. 

FORMALS  MISMATCHED  Formals  in  a  function  definition 

are  not  the  same  in  either  type  or 

number  as  those  in  the  function's  declaration. 

FUNCTION  CALLED  WITHOUT  No  function  definition  found  for 

FUNCTION  DEFINITION  the  function  called. 

REAL  NUMBER  EXPECTED  An  incorrect  type  was  found  where 

a  real  number  was  expected. 

INVALID  CONSTANT  An  invalid  constant  was  found. 

EXPRESSION 

BOOLEAN  VALUE  EXPECTED  A  boolean  value  was  expected,  but 

none  was  found. 

BOOLEAN  OPERATOR  EXPECTED  A  boolean  operator  was  expected, 

but  none  was  found. 

OUT  OF  RUN-TTME  Not  enough  space  to  accommodate  the 

MEMORY  SPACE  program  during  run-tune. 


RUN-TIME  ERRORS 

DIVISION  BY  ZERO  Division  by  zero  attempted 

MULTIPLICATION  OVERFLOW  A  multiplication  operation  resulted  in 

a  numeric  value  outside  the  language  limits 

ADDITION  OVERFLOW  An  addition  operation  resulted  in 

a  numeric  value  outside  the  language  limits 


SUBTRACTION  OVERFLOW  A  subtraction  operation  resulted 

m  a  numeric  value  outside  the 
language  (units. 

STACK/VARIABLE  SPACE  CRASH  The  stack  overwrote  the  variable  space 
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